
DISCOLOGY 



Version 5.1 



POUR VOUS SURPASSER 

3 Programmes en 1 
pour votre Amstrad CPC 



L'EDITEUR: 

Un Editeur universel de secteurs et de fichiers, Grâce à sa boîte à outils 
excephonnelle, (Désassembleur, Calculatrice, Listeur Basic. ) tout devient possible. 

LE COPIEUR: 

Un Copieur intégral pour ta sauvegarde de vos disquettes et cassettes. 
Il vous étonnera par ses performances et sa simplicité d 1 utilisation. 

LEXPLOREUR: 

Un graphique onime en Temps Réel' qui vous révélera tous les secrets de vos 
disquettes. Un programme sans équivalent. 

LES 7 POINTS FORTS DE DISCOLOGY 

> La facilité : Grâce aux Fenêtres, oux Menus Déroulants et à l'Aide Intégrée. 

> La vitesse ! loOKo de Langage Machine pur! 

^ La documentation : Un Manuel complet et une notice technique approfondie, 

> La compatibilité ; Il gère toutes les extensions mémoire et Ses lecteurs 5 14 pouces 

> La performance : Incroyable et absolue. 

> L'inédit : Ou vraiment [ornais vu i 

> La référence : Des milliers d'utilisateurs enthousiastes en France comme 

a I Etranger. DISCOLOGY est reconnu et acclame par la presse internationale. 



s 



Revendeurs, contacte z-r>oos* 

DISCOLOGY Version 5,1 est duponibfe immédiatement, som frais de port, auprès de MERIDIEN Informatique 5 •* 7, La 



13001 



Téh: 91 .94/15 53 



Version 5,1 pour Amstrad CPC 
Disponibilité immédiat». 



BON DE COMMANDE 

□ Je commande DISCOLOGY au prix de 350 F 

□ Je commande Master Save V 3 2 (Copieur seul) au prix de 1 90 F Je règle ma commande : 

□ Je possède déjà Master Save et je commande DISCOLOGY □ par chèque joint (port gratuit) 

Je joins ma disquette Master Save et je ne paye que 160 F □ contre -remboursement (+ 30 F de frais de port) 

Nam : Prénom : ^ 

Adresse : 9~ 



Code Postal : 



Ville: 



Tel, : . 



A retourner à MERIDIEN Informatique - 5 et 7, La Canebière - 13001 MARSEILLE 




ACTUALITE 



REPORTAGE : 
LORICIEL 



z LE LOGICIEL DU MOIS 



GRAND CONCOURS 



AVANT-PREMIERE : 
SILKWORM 



DSMOS I 



IL COURT, IL COURT 
LE FANZINE 



TRANSMOD 



CAO SUR CPC 



Bl 




BULLETIN 
D'ABONNEMENT 


LE COIN 
DES AFFAIRES 


m 

BANCS D'ESSAI 
LOGICIELS 

m 


Bl 

RECAPITULATIF 
AMSTAR & CPC 

(N° 26 à 34) 


SOLUTION : 
LE MANOIR 
DE MORTEVIELLE 


m 

BANC D'ESSAI 
UTILITAIRE 


POSTER 


m 

APPRENONS 
_ A PROGRAMMER 




LISTING : FORMATEUR 



LISTING TRUQUE 



ANTI-ERREURS 



DOSSIER : VOUS 
AVEZ DIT ASTUCES ? 




Sfmi 



Alors que le troisième épisode de la série 
Indiana Jones (The Last Crusade) marche 
du tonnerre de Zeus aux Etats-Unis, Lucas- 
film Games annonce une version informatique 
du délire filmique de Spielberg et Lucas. Et com- 
ment c'est-y qu'il s'appelle le logiciel ? The Last 
Crusade, bien entendu. On devrait d'ailleurs plutôt 
parler des logiciels puisqu'il s'agit de deux program- 
mes, un jeu d'aventure et un jeu d'arcade qui verront le 
jour et porteront le même titre, préférant ne pas mélan- 
ger les genres et obtenir ainsi un résultat médiocre, Lu- 
casfilm a opté pour deux philosophies différentes. Les 
jeux retracent la jeunesse de notre aventurier préféré et 
la capture de son père par les nazis. Tout cela pour une 
histoire de Graal à retrouver et qui permettrait à Hi- 
tler de dominer le monde pendant mille ans ( dites- 
donc Spielberg et Lucas il est temps d'arrêter les 
champignons hallucinogènes). Le jeu d'action 
sortira le premier en juillet normalement. Le 
kiwi n'est pas seulement un fruit exotique 
vert et vitaminé, c'est également (ou d était) 
m oiseau bizarre tout petit et qui ne peut 
voler. Eh bien dans New Zealand story 
vous êtes un petit kiwi, surnommé Joey, 
qui part à la recherche de sa famille au 
long des 60 niveaux du jeu. 



MlCROIDS 

Encore un! C'est la deuxième 
fois que Microids rafle un 
C.E.S Award. Cette récom- 
pense américaine a été décer- 
née à Chicago pour le logiciel 
Downhill challenge autre- 
ment dit Super Ski pour les 
bons français que nous 
sommes. Vous voyez bien 
que l'on peut en remontrer 
même aux Américains 
dans le domaine des pro- 
duits innovants. 



Microprose 

Rick Dang«rous est un héros de bandes dessinées que nu culture 
complète dans ce domaine me permet & ignorer superbement* Enfin 
toujours est-il que le gai luron escaladera les écrans de nos ordina- 
teurs dans pas très longtemps, les séquences se dérouleront dans dit* 
férents pays de la jungle amazonienne et l'Egypte. A chaque fois il est 
question d'échapper à de cruels autochtones dont le but avouer est 
d'avoir la peau de Rick. On nous promet des décors superbes pour les 
35 tableaux du jeu, 

Weird Créants déjà annoncé et toujours attendu devrait voir le jour, 
ou plutôt la nuit, peu de temps après sa sortie sur 16 bits. Il s'agit pour 
vous de résoudre des énigmes dans l'univers plus qu'étrange des rê- 
ves ou des cauchemars. Un jeu très bizarre au scénario I maginatif. 




Titus m 

Puisque nous sommes dans les 
récompenses, Titus fait aussi dans la 
création. Titan a reçu, toujours à 
Chicago, un oscar de l'innovation 89, 
Allons bon mais les éditeurs français ne 
vont rien laisser aux pauvres 
américains ? 



N'OUBLIEZ PAS ! 

AMSTAR & CPC 
SORT AUSSI 
EN AOUT ! 



Mandarin 

SOFTWARE mm 

Une intéressante étude portant sur 
le stress des cadres en entreprise et 
principalement sur les moyens 
employés pour évacuer cette 
tension a été menée en Angleterre 
pour le compte de Mandarin, O 
surprise c'est le jeu sur micro qui 
remporte le plus de suffrages 
devant l'alcool, les cigarettes et le 
sexe. 500 cadres ont ainsi eu à leur 
disposition la simulation Lombard 
Rally pendant 3 mois. Alors, à 
quand les logiciels de jeux 
remboursés par la Sécurité sociale? 




HIT PARADE 
AMSTRAD 464-6128 



N° 

DE CE 
MOIS 


TITRE 


MOIS 
DER- 
NIER 


1 


FORGOTTEN WORLDS 

Copcotn 


NEW 


2 


DOUBLE DETENTE 
0 ci □ 


NEW 


3 


VIGILANTE 


NEW 


4 


BARBARIAN 2 

Falote 


1 


5 


DRAGON NINJA 

Océan 


3 


6 


LA COMPIL'OCEAN 

Océan 


4 


7 


THE GAMES SUMMER Edit. 
Epyx 


NEW 


8 






9 


ROBOCOP 

Océan 


5 


io 


GARY LINEKER HOT SHOT 

Gremlin 


10 


11 


OPERATION WOLF 

Océan 


11 


12 


WEC LE MANS 

Océan 


6 


13 


H.A.T.E. 

Océan 


7 


14 


SUPER SCRAMBLE 

Gremlin 


NEW 


15 


LE MONDE L'ARCADE 
US Gold 


NEW 








NOUVEAUTES A SURVEILLER 


1 


INDIANA JONES, LAST CRUSÂDE 

Lucasfilm Game* 


2 


NEW ZEALAND STORY 

Océan 




3 


CABAL 

Océan 




4 


PANIC STATIONS 

Gremlin 




5 


LES JUSTICIERS (Dragon Ninja 
(Robocop, Rambo 3) Oman 






Vente par correspondance 

93.42.57/12 




Depuis PARIS 16.93.42.57.12 
MINITEL : 3615 MICROMANIA 



PARIS : Boutiques MICROMANIA : 



FORUM DES HALLES 

5, rua Pirouette Niveau -2 
Métro et RER Les Halles 45.08.15.78 

PRINTEMPS HAUSSMAN : 

64, bd Houssman, Espace Loisirs sous-sol 
Métro Hovre-Coumortin 42.82,56.36 




La mafia est une grande famille dont les membres n'hésitent pas à se 
tirer dessus de temps en temps pour garder la forme. Justement vous 
êtes un célèbre parrain qui doit faire face à un brusque changement 
de situation : vos «amis» vous ont tendu un piège et tous vos hommes 
ont été décimés. Seul, ou presque, vous avez entrepris une vengeance 
implacable. 

Voici donc le scénario du prochain jeu d'Esat qui comporte deux pha- 
ses, la première de style «Prohibition» avec tir sur cibles et innocents 
à ne pas toucher, l'autre qui se déroule en voiture. Vos ennemis vous 
attendent à chaque carrefour et vous poursuivent tout en vous tirant 
dessus. 



Kixx m 

La deuxième compagnie anglaise de 
budget (après Code Masters) annonce 
Gauntlet II, Masters of the universe, 
Jack the Nipper, Mission Elevator et 
Cybernoid. Bref des classiques à un prix 
exceptionnel. 



Encore m 

Continuons dans la catégorie «prix 
légers» avec un spécialiste de ce genre 
de produits qui annonce gaillardement 
quelques nouveaux titres. Par exemple 
Bomb Jack II ou 1942, succès d'arcade 
de notre jeunesse enchanteresse. Il y a 
aussi Kokotoni wilf qui semble être un 
mélange d'arcade et d'aventure avec 
dragons et tout le bastringue de 
l'heroic-fantasy. 



Disquettes m 

Peut-être en avez-vous déjà fait les 
frais : une pénurie de disquettes 3" se 
faisait sentir depuis quelques mois à la 
suite d'une fermeture d'usines. Mais 
heureusement, la société CTS s'apprête 
à inonder le marché français à partir 
d'une usine basée en Italie. Alors, finie 
la pénurie ? 




Océan m 

Chez Océan, tout baigne : ils ont décidé 
d'imiter les petits copains et de sortir 
eux aussi une gamme «budget» 
réunissant leurs anciens titres puisque 
comme dit le proverbe : «c'est dans les 
vieux chaudrons que l'on fait les 
meilleures soupes». La collée s'intitule 
Hit Squad et elle est divisée en 3 
genres : Sports collection, Arcade 
collection et Movie collection. Quelques 
titres au hasard : Enduro Racer, Rambo, 
Daley Thomson's décathlon, Green 
Béret, Miami Vice, Yie ar kung fu. 




La matinée est déjà bien avancée 
et le soleil nous arrose copieuse- 
ment de ses cruels rayons lorsque, 
soudain, nous apercevons le ranch en haut 
de la colline. Encore quelques minutes de 
marche laborieuse (sans chapeau et sans 
gourde) et nous pénétrons dans ce hâvre 
de fraîcheur et de paix qui semblent ré- 
gner sous ce toit. Toute l'équipe «Lori- 
ciel» est présente, le shérif Laurant Weill 
et ses adjoints Marc Baylc et Philippe Sé- 
ban ainsi que de nombreux cow-boys... 
dont certains sont de charme ! Tout le 
monde ayant pris place, après s'être bien 
assuré qu'aucun intrus ne se trouvait dans 
la place, nous allons enfin tout savoir... 
Sur la table centrale se trouve une caisse 
«Top Secret - Défense de Toucher» qui, 
évidemment, contient tous les plans qui 
vont nous être dévoilés... 
Mais, soudain, en une fraction de seconde, 
le drame se produit ! Une horde de hors- 
la-loi fait irruption dans le ranch et nous 
intime l'ordre de ne pas bouger, de lever 
les mains et surtout de ne pas essayer de 
jouer au héros. Leur objectif est, bien en- 
tendu, de subtiliser cette caisse secrète et 
de nous enlever sous notre nez ces plans 
dont nous attendions la révélation depuis 
si longtemps et que nous allions enfin dé- 



couvrir ! Mais, alors que le chef de la bande 
a presque réussi à s'emparer de la boîte, 
la bonne étoile de Loriciel intervient en 
la personne du Bon, Sauveur de Loriciel. 
Après être lestement descendu de son che- 
val, il fait si vite le ménage parmi les brutes 
qu'il ne reste plus à leur chef qu'à se faire 
hara-kiri... La caisse contenant les plans 
de Loriciel retrouve alors sa place initiale 
et Laurant Weill soulève délicatement le 
couvercle... 

REVELATION 
DES PROJETS 

mË¥ D'emblée, nous comprenons pour- 
quoi tous les coyotes du Far West 
'£/ étaient si désireux de s'emparer 
du projet ! En effet, il s'agit d'un pistolet 
«révolutionnaire», le WEST PHASER, qui 
peut fonctionner avec tout type d'ordi- 
nateur. D'une part, West Phaser est un 
pistolet interactif livré avec un jeu d'ar- 
cade où vous incarnez un justicier de 
l'Ouest à la recherche des plus grands 
bandits dAmérique ; d'autre part, West 
Phaser c'est toute une gamme puisque de 
nombreux logiciels seront adaptés tels que 



Space Racer par exemple. Dans cette op- 
tique, des contrats ont déjà été signés avec 
des sociétés comme Infogrames, Cobra 
Soft ou Action ware. Tout logiciel faisant 
partie de la gamme sera facilement recon- 
naissable grâce au logo Phaser Compati- 
ble qui sera présent sur chaque embal- 
lage. Enfin, le produit West Phaser vous 
permettra également de programmer vos 
propres jeux en GFA Basic, Basic ou As- 
sembleur suivant la machine que vous 
possédez. 

Visiblement, toute l'équipe Loriciel se sen- 
tait maintenant libérée du grand poids 
que constituait ce secret et c'est d'un cœur 
très léger qu'elle nous faisait une démo 
de West Phaser sur PC (concluante sur 
PC en CGA ce qui laisse augurer de bons 
résultats sur les autres machines) avant 
de nous présenter les 2 autres logiciels 
qui sortiront également au mois de sep- 
tembre, sachant que ces 3 logiciels font 
partie des 8 prévus pour la fin d'année. 
Il s'agit tout d'abord d'une simulation de 
Kick Boxing, réalisée en collaboration 
avec André PANZA, Champion du Mon- 
de de Kick Boxing, de Boxe Américaine 
et de Boxe Française (titres malgré tout 
quelque peu frappants !). Dans votre com- 
bat mené contre plusieurs opposants jus- 



West Phaser sur PC (écran en CGA) Kick Boxing sur Atari ST 




Pinball Magic sur Atari ST Pinball Magic sur Atari ST 



qu'à l'affrontement avec Panza lui-même, 
Loriciel veut des mouvements aussi par- 
faits que possible et c'est pourquoi ils ont 
tous été pris en vidéo puis décomposés 
et digitalisés... Le dernier logiciel présen- 
té aborde un tout autre domaine mais 
nous sommes persuadés qu'il va en pas- 
sionner plus d'un ! Bien que Pinball Ma- 
gic traite un thème hyper-classique, il a 
l'avantage de présenter de nombreux ta- 
bleaux dont certains comprendront des 
casse-briques et d'autres des flippers. Pré- 
sentant des graphismes très colorés et un 
intérêt évident, il vous promet sans pro- 
blème de longues heures devant votre 
écran... 




Tableau final 



Maintenant qu'il n'y avait plus de 
tout le monde était invité 
à faire la fête ! Seulement, à votre 
avis, avons-nous dévoilé tout ce que nous 
avons appris ? Les plus observateurs d'en- 
tre vous ont sans doute déjà découvert 
que non ! En effet, jusqu'à présent, nous 
avions l'habitude d'écrire Loriciel avec un 
«S» ; mais non, ce n'est pas une faute de 
frappe ou un oubli car cette journée a été 
également marquée par la perte officielle 
du «S» et la présentation du nouveau logo. 



Le petit chaton sur la scène du logiciel 
depuis bientôt 6 ans a donc décidé de de- 
venir plus dynamique et plus actuel pour 
accompagner la sortie de nouveaux pro- 
duits qui se veulent originaux et de qua- 
lité. Pour en juger, il suffira d'attendre le 
dernier trimestre qui, comme chaque an- 
née, va se révéler très prolifique. 



LORiCIEL 



a jttt We are poor lonesome 

W SÊÊ tS& v journalists... 





GRAND SI 

CONCOURS 

> PERMANENT < 



Dans notre numéro d'avril, vous avez pu découvrir un banc 
d'essai complet de Highway Patrol. Depuis vous avez eu 
largement le temps de vous familiariser avec cet attrayant jeu 
d'action aventure en 3D qui vous offre une simulation À 
de conduite avec, en prime, de folles poursuites. . . 
Maintenant, il ne vous resté plus qu'à remplir le questionnaire 
ci-contre entre 2 séances de doigts de pied en éventail ' 
Avouez que le premier prix en vaut la chandelle. 




4- 




1er prix : 1 radio-réveil-lampe orientable GO-FM 
Du 2ème au 5ème prix : 3 logiciels Microïds 
Du 6ème au lOème prix : 2 logiciels Microïds 
Du llème au 20ème prix : 1 logiciel Microïds 



© 



Quel est le thème du jeu ? 



Quel est l'objet livré avec le logiciel et qui se révèle être indispensable à votre 
folle poursuite : 



Donnez l'objet du délit : 



Comment s'appelle l'arme à feu plaquée sur le tableau de bord ? 



Question subsidiaire : 

Donnez le nombre de bulletins comportant toutes les bonnes réponses que nous 
recevrons. 



(en cas d'ex aequo, un tirage au sort sera effectué) 



Renvoyez ce questionnaire à CONCOURS MENSUEL AMSTAR 
Editions SORACOM - B.P. 88 - 35170 BRUZ 

Aucune photocopie ne sera acceptée. Pour le mineur 
gagnant, l'autorisation des parents sera nécessaire. 



DERNIER DELAI LE 15 AOUT 1989 




Adresse 

Code postal 



Ville - 




Signature : 

Si je gagne, je voudrais mon lot sur : 
□ K7 □ DK 



AMSTRAD | «g» 



COMPILATIONS^ 

DÉMENT î — \ 



DEJHEWi ï — 

1A COMP»* rloN 

DE ftli I 

DE COMBAT 
f>E CMK OC$AH l 

WSJUSTICIER5 14SH95r 

+ DRAGON NÎN.IA 
* kOBOCOP 
* RAMBO 3 



:■: JfiDix 



149't99F 



il » 



- M 



il i * 
AMC 



GEANTS 0€ L ARCADE 2 

,*1*M:T I KiM 1 1 1t 
. hu^i ■ »MV. .:■ h. • 

i ♦ - 1 ti ii . 

♦ ^mm a ri ir^ 

- M» M' * I * fj 




LA COMPIL' OCEAN WJWF . 

,. L -ARCHE Dti^VU MNf HI-OOD, 

Ol-VMPTQl'E CUAU VNOb 
■ c MONDEOE L'ARCADE 1««0F 1, 

I + T IGER KUAP 

*Y HCNTER^A^KBFaRP 



L 



COMPILATIONS (suite)- 

12 JEUX EXCEPTIONNELS 129 149F 

*CYBl£Kî<OtD 
-Mi PLEXTOR 

-m \ SK +ÛLOOD BK< ,) Itff kS 

• NTfB! LL'SKIlrtCll r ' 
- NOK I MST ARi-EXOLON 

FS V MIRES DL l tîWVERS 
*V£X< iVI S J RIKFiî R v "K 

-M AfÏAt nER-r: ,!' VIA 

OCEAN OYNAMÎTE 149' 199F 

«KA.RVQV 

^ COMBAT iCJk*>L 
/l k 

8 EST DE US GOLD T49 i*9F 

-O-MJNTLlT : 
«•CftlilURMA 7211 

• UiH I iS<; THl^'DEft' 

LES DEFIS DE TAITO 149199F 

■ ■ F ' PF\E< DL 
•ARKANOID l 
-ARKANt»U> 3 

GAME SET MATCH 2 149199F 

4M Al' 

.SI î'f 3 * l| <> n 
-ÎN v ¥\ FtLLD 

GOLD 3ILVER 8RON2E US I59F 

: » EpRDiMaa swmn Ri iîfy* 

MISTORVINMAKIMC Î9924IF 

-IfeJWSnFKHI/XRD 

-k*f*E5ï kudlu 

,i i v • t v r t_ E^*_V* KM 

<ff*Y llWTER+fctPAU 'n 
-»;?<l i'ELEjE^uiVCIGS 
«Kl UAAfJA* k aJIi 



- COMPILATIONS [suite) 

FORCES MAGIQUES 149 199F 

+ PAMW RI ROSE: 
-VV L > 1 1 :RN <ï AMF.S 
■*ClF-Vf<R AN H SMART 
+OPERAÎ NEMU^D^KAk 4\i 

SPACE ACE 129149F 

4C > RfRNOîD^ORl I Kr V«R 
-7> A , v , h.: 

rE\OU - h ■ S' n S 

TENMEGAGAMES3 129 149F 

+LEADt*KHnAW> 

+ JUïMRAVlt .-I.A.STSWÎiSlUN 
I .OttfJ i<i ,t i I 
* V A M A-FlUJrrtKJNLO t 

-l-M P IN T VLK 

FIST AND THROTTLES 119* 139F 

-ENDL RO RACliK 

-ML * iU> HOI 
•TKAR1 WSHRH>K 

LES FUTURISTES 149199F 

j <KAWON M Xl'NK 

* r V BOR+ DtîfîfOTlIC OÊSlt-K 

I KARATE ACE MS17SF 

-|CLWT( MAVCLK 
rllKl^. ii U E 

* ! i! \<AT a JïIDû 

rTtir v ,vv i >r r\pioois<; i mi 

ELITE 6 PACK N 3 95 WF 

s : Ai» i ^ 

•OH'"*: V«il!p| 



COMPILATIONS (suite)- 

ARCADE ACTION T1S1S5F 

•REWEtiADE 

*SI .PER^PKtNUMAMFVln 

COLLECT, KONAMI H^IftSF 

- * \CRAt ^sMAhU\ft«*IAO 

AR Kl Fl >\HKfE 
+tfttfcEN RF,RRT 
4YEAR KUN- a 

TOP TEN COLLECTION »145F 

♦s a bute*, h » 

v ;-m ;s>a " 
+ÏKmrM\\\^* VfkWOi.F 

-LOMH ^Ti YNX^BtlMHnrK ! 
GAME SET MATCH 129179F 

*GOXKG-prjaL-tf r r *r si}*!** 

SPECIAL ACTIOK ??14ÏF 

+ORY Aitt^l AfrUEl ) \ Dr 
1 1 , k S ^ DUKAL »* X*t Afl- 

«rBASK t i \i Afo/-\ K 



SONT D'ABOKD 
CHEZ , 




149 199F 



Recevez gratuitement le catalo- 
[duo cowenrs 
A^/CffOMy4NM avec fendes /es 
noyv^cp^fes, TEC 93 42.57, 



DEMENT!!! Kit de Télécharq 
Avec ce kit vous allez pouvoir télécharger 24h/24, 
7 jours sur 7, des centaines de Hits pour le simple 
prix d'une communication téléphonique sur 
3615 AMCHARGE. 



! C'EST 



Nouveau 



I Des pt** 



tous tes iours^ 



GARANTIS 
TOUS 

tes tooiasLS 



AMSTRAD 



rVVL 3dI5M#CROAiAWIA 
6128 C'EST GEANT!!! 

Nouveau! Dus promotions 
flash tous los tours 



En iuillet et -out bjMM •« % 
d'une remise 9f «» ,e «e 
sur tous les logiciels 

AMSTRAD* ATARI, ST, PC, 



Hir-ROMftNIflj 

BP3T^)6740^ H ATE AU NE ^^^^^ E 'o7 1 2 



OUVERT DE 



3 H À M H DU LUNO- AU SAMEDI 



NOUVEAUTÉS 



A NE PAS MANÛUER- 
AmoN service mm** 

I AD AL MsWSt 

i in L \ST CRI SADE 93/1451 
NEW /Ml AND MORN W 145F 
PAMC STATIONS 



AUTRES NOUVEAUTES - 

hiKMimx >i 9$'1451 

\S< >MB1 Z " . W 

l'ARRir.K COMMAM» US'IQSF 

i m >min • • - i|4<n 

OOlBtt 1»Km.O\ i-TH 
I SWs i|5 Î4 C F 

MEURTRE ^vtjyist uvr*5F 
ITKCWECT STE vl TH ► M.«'.U9F 
PRO SOO EH StMt'LAT M u'J» 
RICK IKM.F.ROlS V5 145F 
Kl nv iMi 15 I4SF 

I N *TE "K IMI WMSt 

• A K 0Ê/N5F 

TINir S< iNM k W 44«0 

IlMlv Uiî i \ l L iqm 

vuMi. ^M c • i j'«»f 

*tl&f iMr- ^MN 49/l'*H 

M lAPfttWI 103 t*Sr 



HIT PARADE 



aftfr burnrç WH9F 

BARBARIAN 2 89/1 W 

Bl KtlLR 1 !1LL 9WI49F 

cm ci. \ i w ier • 

AD\ FLIGHT TRAINFk 9|$/l45r 

CRAZN CARS 2 CM 160F 

DQI Bl I- I.I ILML ^/I49F 

DRXGON M M A miWV 
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Ces logiciels doivent 
sortir prochainement. 
Téléphonez ou tapez 
361S MICROMANIA et vous 
connaîtrez la disponibilité 
exacte de chaque logiciel. 



SUPER PROMOTION -, 

MANETTES ET CABLES 

porte ci f fs \tk rom \ma w 

mi F'KODl IT FIDELEMENT 
LELA/F.R ! A MITRAILLETTE. 
IL LANCEMENT DF GRENADE.. 
ET AU 1RES EFFETS SPECIAUX 
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DE DEUX MANJflTES 49F 
CABLE MAGNETO AMSl 49F 
C ABLE L» EXTENSION 
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HOUSSE DE PROTECTION 
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4 DISQUETTES VIERGES 99F 
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PAC M \M V 

R -.M^ ; • m 
kt Ai ÛilOS • BL STFRS 
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SOLDES DISQUETTES 
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SOLDES CASSETTES 
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PRINTEMPS 
HAUSSMAN 
64, bd Houssman 
Elôocfl Loâira sau&»»al 
75008 Pons 
'Aftîro Hovre-CQ*>mQ»lln 
Tél 42.62.5B.36 



FORUM DES HALLES 
5, rua Pirouette 
Niveau -2 

Metrc et RER U» Hdltf 
Tel. 79 



Votre jeu chei vous dans 48 h* en téléphonant au 93,42.57.12 

- , <c ii^iw» cte b x***axt* partagé* trtki^rgmr (ÂTnNhON_émmètÈ hkrti c+mjut<±r J# Id W éiJTJS) 

~ BON de COMMANDE EXPR ESS à en voyer à MICROMANIA • B.p;3 -06740 CHATÊAUNÊUf 



TITRES 



Rem.se sor les lo giciels AMSTRAD , ST PC, A MIGA 



Participation aux frais de port et d'emballage 
Précisez cassette _ Disk E Total à payer = 



PRIX 



NOM 

IF 



Ode parai 



- 10 % 



+ 18 F 



PAYEZ PAR CARTE BLEUE I INTERBANCAIRE 



i 1 



_L_L_ 



i 



Dote d'expiration — I — Signature 



T.Sh.rt PLAY AGAlN 

M. L. XL 

T.Sh.rt HIGH SCORE 

M. L. XL. <en^o«r« ^o'r^ lo.l^j 

Montre MICROMANIA 







Le ver à soie, c'est le titre du logiciel 
^ que voici que voilà. On pourrait croire 
qu'il s'agit d'une paisible fable destinée 
à nous asséner une morale pleine de bon 
sens ou bien qu'il s'agit d'une simulation 
d'élevage de ces charmantes petites bes- 
tioles friandes de feuilles de mûrier. Eh 
bien non, c'est encore une boucherie sans 
nom, un de ces logiciel ou l'instinct sau- 
vage de la bête immonde cachée en nous 
est plus sollicité que l'intellect sublimé 
de l'homme moderne. 



Pour vous situer l'époque, on en est à la 
4eme guerre mondiale et le monde com- 
mence à grand-peine son rétablissement 
vers une paix durable. 

Mais comme on n'est jamais trop prudent, 
les grandes nations décident de signer un 
traité abolissant les armes nucléaires. 

On peut alors penser que le monde va 
souffler un peu et que l'on va pouvoir se 
délecter du chant des petits oiseaux. Pas 
du tout, les vilains généraux, avec pleins 
de méchantes armes ont encore envie de 



Et quoi de plus amusant qu'un bon coup 
d'Etat militaire ? Devant la menace et les 
hordes de véhicules de toutes sortes qui 
commencent à déferler en vagues meur- 
trières et belligérantes, les civils ont con- 
çu deux engins de guerre : un hélicop- 
tère et une jeep. 

Cela peut sembler un peu juste pour 
contrer la vague précédemment nommée 
mais il faut préciser que ces véhicules 
bénéficient des derniers perfectionne- 
ments en matière d'armes offensives. 

Il ne reste plus qu'à trouver les deux cou- 
rageux volontaires qui accom- 
pliront cette mis- 




sion suicidaire. Les volontaires étant dé- 
signés, il est possible de commencer. L'hé- 
licoptère du premier joueur possède deux 
canons : l'un est dirigé vers l'avant, l'au- 
tre est incliné de 45 degrés vers le bas et 
permet de défendre la jeep en cas de be- 
soin. Justement, la jeep ne possède qu'une 
seule arme mais son canon est orienta- 
ble et elle peut également sauter par- 
dessus les obstacles. 




dirait Yannick Noah) dont les différen- 
tes parties tourbillonnent devant vous 
avant de se rassembler. 
Cest là qu'est justement son point faible : 
un morceau particulier est vulnérable à 
vos attaques. 

11 suffit de s'acharner dessus pour faire 
sauter le bazar et récolter bonus ou ar- 
mes supplémentaires. 



Autre petite chose intéressante : vous trou- 
verez parfois sur le sol des pastilles rouge- 
orange. D'un tir vous pouvez Jes détruire, 
elles révéleront un nuage de gaz. 

En vous positionnant sur ce nuage vous 
récolterez une protection temporaire. Et 
s'il y a deux nuages présents à l'écran, le 
second se comportera comme une «smart- 
bomb* et détruira tous les ennemis pré- 



sents sur l'écran (sauf l'hélicoptère à coup 
d'oie). 

Enfin à la fin de chaque niveau, un des 
généraux vous attendra à bord d'un hé- 
licoptère ou d'un tank lourdement armé 
et blindé qu'il faudra toucher plusieurs 
fois avan t de le détruire. 

Edité par : Virgin Cames 

Prix indicatif ; Non communiqué 



Notre avis : 



Et un shoofem up de plus dans la collection du CPC. Parmi les défauts de Silk- 
worm on notera une animation cahotique, une difficufté désarmante et un scéna- 
rio archi-connu. En revanche las graphismes sont plutôt jolis, il est possible d'acti- 
ver un mode spécial permettant une animation plus rapide mais réduisant l'affi- 
chage à une ligne sur deux. 



«IMil» lit » ^ *^ 



MICROLOGIC - B.P. 18-91211 DRAVETL CEDEX 



GESTION BANCAIRE 



| Gérez votre 
' sonnelle de 



comptabilité per- 
m an 1ère rapide et 



fiable. Commandes par 
barres de menue * Gestion 
de 1 à 10 comptée * Plus 
de 14000 opérations 
slockables par compte i 
Sorties multicriteras sur 
écran. imprimante ou 
disquette Relevé complet - 
Solde réel ou opérations ^ 
pointées (permet de traiter 
les CB...) - Recherches 
entre deux dates/entre montants minîs et maxïs avec ou sans libellé 
particulier - uste a es cneques émis entre dates/entre numéro* ... Biian - 
DISQUETTE 3' pour CFC. 6128 : 245 Frm TTC 




GESTION DE FICHIERS 



I I II C T [ I I 



Enfin une gestion de fichiers 
d un nouveau type : Commandes 
par barres de menus-Pour une sécurité maximum toutes les saisies sont 
contrôlées, èvitanl tous neques de blocages - Fichiers jusqu'à 64 Ko- 20 
champs/fichier - Champs de types car actères / logiques f dates - 10 

masques d'édition entièrement 
paramétrables, par déplace- 
ment des champs sur r écran, 
evec sauvegarde sur disquette 
(ét iq u ette-form u I aires . . . ) 
10 filtres logiques d'exploita- 
tion avec sauvegarde - Tri sur 
n'importe quel champ (traite 



parfaitement les dates!) -Sorties écran, imprimante et disquette... 

DISQUETTE 3' pour CFC M2B : 290 Fn TTC 



BIORYTHMES 



DISQUETTE 3" pour la.» CFC : 150 TTC 
DISQUETTE V pour C9C r 20ù &j TTC 



NOUVEAU I REGLEZ AVEC VOTRE CB 



DESSIN TECHNIQUE 



implantations et 
en quelques 



i Réalisez vos schémas, 
I circuits électroniques 
minutes Bibliothèque importante de composants, 
symboles et graphiques Plusieurs utilitaires sont 
fournis Réductions d écrans échelie 2 —> 
échelle t, Programme de saisie de zones 
d écrans at manipulations de celles-ci (inversions 
horizontales verticales, video - déplacement - 
sauvegarde .) vous permettant de faire de la 
micro-édition La version TURBO permet de 
travailler sur 4 écrans en carré ou en hauteur evec scrolling intégral et de 
réaliser des cartes de très grandes tailles Grille au pas choisi Affichage des 
coordonées- PAS AUTOMATIQUE (2,54 ou 5,08 }OU MANUEL 

Vention TURBO ; DlSOt^TTC y ^ur CFC 61 23 = 715 Fn T TC 




DISCOBOLE 



La boite à outils pour vos disquettes EDITEUR de 
secteurs ultra performant • Analyse - Localisation de 
fichiers - Recherche/ Rem placement de chaînes, de codes, de mnémoniques 
280 - ASSEMBLEUR,' DESASSEMBLEUR INTEGRE - CaJcul et mise à jour de 
l adresse réelle d exécution des programmes - Pormate et traite les disquettes 
aux formats DATA, SYSTEM. PCW, 208k, IBM PC {1 face) - Anaiyse de 
disquettes non standard : jusqu'à 10 secteu r s/ piste ou avec des secteurs de 
256,1 024 r 204S ou 4096 octets Transferts de fichiers entre différents formats. 
DISOURTTP, V ponr loi.* CPC i 35Q Fn_TTC 



BON DE COMMANDE 

Nom . 

Adresse : 

Code Postal Vilie ; 

Jm Povufcpné. 46cHfl<e commander l« pradurts «vlvwiti; 



Prénom ; 



Je choisit de régler par 
n CONTRE RBT 



^ forfait de port 20 Fro si règlement joint 

-, R^j^^jl^P ,a commande - 50 Frs en Contre 

. .CB. _. _ . MANDAT bt . Cornmande p af téléphone accep 

No de CB : 
Expire RN : 
Signature 



■ Catalogue gratuit sur demande. 

Téléphone: (1) 69.21.61.65 
j lSgj T Minitel :(1) 69. 24.49. OS 
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Un vaisseau venant 
d'une autre galaxie se 
trouve en mission 
d'exploration dans 
l'infini cosmos. 
Malheureusement, des 
chasseurs, des pièges 
l'attendent. 



Après le chargement, l'utilisa- 
teur pourra sélectionner soit 
le clavier (touches direction- 
nelles + barre) soit le Joystick en ap- 
puyant sur la touche 1 . Pou commen- 
cer, pressez la touche 2. 
La pause s'obtient en appuyant sur 
RETURN. L'abandon s'effectue par l'In- 
termédiaire de la touche ESC. 
Au début du Jeu, vous avez 3 vies. Au- 
cune vie supplémentaire ne sera ac- 
cordée durant la partie. En revanche, 
le vaisseau dispose d'une réserve de 
missiles Inépuisable. 



C08«ôS ^ 





Il y a 3 fichiers : COSMOS.BAS qui est 
le programme de chargement, DA- 
TAS1 et DATAS2. Ces 2 derniers pro- 
grammes doivent être lancés en pre- 
mier car ils créeront deux fichiers bi- 
naires COSMOS! .BIN et COSMOS2.BIN 




Luc & Hervé GUILLAUME 



20 1 ft n M 

30 ' •» C Q S H Û S *• >LC 

40 1 M «• )Ll) 

50 ' " Projraiied bY Luc Guillauie »t >LE 

60 ' t» Graphics by Hervé Gui 1 lame «« AF 

70 1 *t Copyright Black Systei 1369 »« ;LG 

80 ' t* ,LH 

so ' .tiitn, !.!».#.. tt.tt.ttt.ni.itti.il >y 

100 * >RB 

120 HEMOftï 19999 M 

130 L0ADVC0SH0S1.BIN". 30000 >XG 

UO L0A0"!CÛSHÛS2.BIN",iÙOOO >IH 

150 CALL 30000 >HK 



DATAS 1 



lu ' 

20 ' DATAS POUR C0SH031.BIN 
J0 ' 

40 MODE 2:AD=30000:NL=110 
50 FOR B=l TO 510:T0T=0:F0R T=0 TO 14:REA0 A* 
60 POKE AD,VAL("i"+Ai):TOT=TOT*PEEK(AD):AD=AD+l 
70 NEXT.-READ S0M$ : (F VALl"fc"tSOH»n>TOT THEK 100 
80 LÛCATE 1,1:PR1NT"UGNE";NL;"CÛRRECTE" 
9U NL=NLtlÛ:JiEXT:SAVE"C0SMOSl.BlN*.B,i753Û,ME14:FJD 
100 LOCATE 1 , 1 : PR 1 NT"L i GNE" ; NL; " 1 KCOREECTE" : EHD 
110 DATA 31.00,C0,CD 1 15,B9,7C,FE,02,CA,41,75,21,3D,BD,6A3 
120 DATA 36,C9,21,EE,BD.36,C9,06.00,0E,00,CD,38,BC,CD,66C 
130 DATA EE.81.AF,CD,0E,BC,2l,5D,E8,22,B7,87,3E,01,32,6EC 
140 DATA B6,B7,21,EE,88,ll,E4,E2,CD,94,Bl,2i,01,B3,ll,749 
150 DATA 62, EB, CD, 94, 81,21, 16,89, 11, 24, FC, CD, 94, 81, CD, 7EF 
160 DATA B0,84.CD,FF,81,AF,32,2B,66,32,3C,86,32,4D,66.70C 
170 DATA CD, 47, 7E. CD, 06, 77, CD, 5D, 82, 06, 06, CD, A5, 84, CD. 757 
180 DATA 47,78,CD,E2,7F,3E,2F.CD,1E.BB,CA,93,75,06,64,73C 
190 DATA CD,A5,84,CD,EE,81, 21, 4D,E9,22,B7, 87^^32,83,870 
200 DATA 67, 3E,01.32,B2.87, 21, 90,89,11.0F, 88.01. 03, 00, 417 
210 DATA ED.B0,CD,B2,89,CD,EE,81.AF,CD.0E,BC,AF,32.2B.933 
220 DATA 86, 32. 3C,66,32,4D.86,CD.47,7E,21. A4.50.ll, 1A.551 
230 DATA D8,01,18,00,3E,19,CD,C2,81.21,20.88,06,03,5E,488 
240 DATA 23,56,23,C5,CD,94,81,C1,10.F5,21,5E,88,06.02,618 
250 DATA 5E.23,56,23,C5,CD,66,81.C1,10,F5,06,0A,CD,A5,6BB 
260 DATA 84,CD,FF,81,3E,41.CD,1E.BB,C2,98,76.3E,40,CD,811 
270 DATA lE.BB.a.49,76,CD,2B,76,C3,15.76,CD,D6,77,2A,75C 
280 DATA 32,86.E5.11,AC,D0.01,0A,00.3E.16.CD.2F,81.E1.5E7 
290 DATA 11.D6,DO,01.0A.00.3E.16.C3.2F,81.3E,40,CD,1E,4F2 
300 DATA BB.C2,49,76,3A,B2.87,3C,FE,03.DA,5C,76,3E.01,6D7 
310 DATA 32,B2,87,FE,02,CA, 75,76, 21, 90,89,11,0F, 88,01, 603 
320 DATA 03,00. ED,B0,21,B4,88,C3,83,76,21, 95, 89,11,0F, 618 
330 DATA 88,01, 03,00, ED,B0.21,C4,88,E5,11, 25,88,01. 10, 54A 
340 DATA OO.ED,B0,El,ll,DA.FB,CD,94,81,06,32,C3,A5,84,86A 
350 DATA CD.EE.81, AF.CD.0E.BC.21, A4.50.ll, 6B.C0,01. 18.6EC 
360 DATA 0O,3E,19,CD,2F,81,21,8C,88,11.54,E0,CD.94,Bl l 630 
370 DATA 21,96,88,ll,A4,E0,CD,94,81,21,A0.88,ll,88,E0.778 
380 DATA CD.94. 81. 21. AA. 88.11, D8.E0.CD.94, 81. 06,04,21. 70B 
390 DATA 9A,89.C5.5E,23,56,23,E5,21,D4.88.CD,94,81,E1.807 
400 DATA C1,10,F0.3E.03.32,CC.87,C6,30.32.43.89.21.00,59C 



410 DATA 00,22,C9,87,21,CF,87,22,BF,87,AF.32.CB,87,32,6B6 
420 DATA B5,87,C3,2B,77,21,5F,89.22.B9,87,21.6E,89,22,646 
430 DATA C1,87,21,88,69,22.C7,87.21,7A,89,22,C3,87,21,69B 
440 DATA 7F,89.22,C5.87,21,6B.B9.22.BB,87,C9,AF.32,CB,764 
450 DATA 87,CD,FF,8l,CD,5D,82,CD,F1.77,CD.94.84,CD,36,99D 
460 DATA 82,CD,D8,7E,CD,BE.84,3A,CB,87,FE.01,CA,CB,75.949 
470 DATA 3A,39,86,FE.OO,C2,8E,7C.3A.11,88.CD,1E.BB.C4,700 
480 DATA 6A.78,3A,0F,88,CD,1E,BB,C4.D2,78,3A,10,88,CD,706 
490 DATA 1E,BB.C4.DE,78,CD,D6,77.3E,12,CD.1E.BB,C4.14,7DB 
500 DATA 82,3E,42,CD,lE,BB.C2,CB,75.CD,A2,78.CD t 47 t 78.81D 
510 DATA CD,8C,7F,3A,B5,87,FE,01,CA.2F,7F,CD,E2,7F,C3,8B6 
520 DATA 44,77, CD,BE,84,2A,BF,B7.2B f 7E,FE,FF,C2,A9, 77, 8C2 
530 DATA 21,CF,87,22,BF,87,3A,CC,87,3D,FE,00,C2,BB,77,79B 
540 DATA 3E,01.32,CB,87,C9,32.CC.87,C6,30, 32,43,89,21, 626 
550 DATA 64,00.ED.5B.B7,87,01,33.00,3E.A3.CD,2F,B1,CD,649 
560 DATA F1,77,C9,3A,B3,87.3C,FE,02,C2,E0,77,AF,32,B3,B8E 
570 DATA 87, 21, DC, 00, CD, 08. 86, 01, OC. 53, 09, 22, 32, 86, C9,4EB 
580 DATA 3E,01,32,B6,87,AF,32,2B,86,32,3C,86,32,4D,86.539 
590 DATA CD,47,7E,21,29,89.U,8E,FB.CD,66,81.21,3D,89,69A 
600 DATA 11,DO,D4,CD,94,81.CD,B0.84,06,1E,C5,06,06,CD,75A 
610 DATA A5.84.CD,47,78.CD,E2,7F,C1,10,F1, 21, 33,89.11, 793 
620 DATA 8E,FB,CD,66,81,21,33,89,11,D0,D4,CD,94,81,AF,860 
630 DATA 32,B6.87,3E,01,32,2B,86,C3.BE,84,DD,21,5E,86,678 
640 DATA 06,0C,C5.DD,E5,DD,7E.0C,DD,86,00,FE,A4,DA,5C,83B 
650 DATA 78,AF,DD.77.0C,DD.E1,C1.11,11,00,DD,19.10,E4,712 
660 DATA C9,3A,3C,86,FE,01,CA,83,78 t 3E,01,32,3C,86,3A,5F6 
670 DATA 36.86.3C,32.47.86,3E,8C.32,48,86,3A.4D,86,FE.5CC 
680 DATA 01,C8,3A,48,86,FE,78,D0,3E.01,32,4D,8G.3A,36,5CB 
690 DATA 86,C6.08,32.58.86,3E.8C. 32.59, 86,C9,DD.21,3C,642 
700 DATA 86,06,02,C5,DD,E5,DD,7E,00,FE,00,CA,C7,78,DD,854 
710 DATA 7E.0C.06,04.90.FE,04,D2,C4.78.DD,36,00,FF,3E,684 
720 DATA 02,DD,77,OC,DD,E1,C1,11,11,00,DD,19,10,D7,C9,6A9 
730 DATA 3A,36,86,3C,3C,FE,21,D0,32,36,86,C9,3A,36,86.60A 
740 DATA 3D,3D,FE,07,D8, 32,36,86, C9.DD,21,0E,B8,06,05,5AD 
750 DATA DD.7E,OO,FE,0A,38,O9,0E.0A,91,DD,77,0O,DD,34,5B2 
760 DATA FF,DD,2B,10,EC,DD,21,ÛA,83,11,A8,EO,Û6,05,CD,7C4 
770 DATA 3C,79,ED,5B,C9,87,21,20,4E,CD,1A,82,FE,01,C8,70C 
780 DATA 21, OA, 88,11, AC,88,06,05,7E,C6,30.12.23,13,10,3CF 
790 DATA F8,2A,C9,87,22, 15, 79,21, AA.88.11,D8,E0,C3,94,795 
800 DATA 81,C5,D5,DD,E5,D5,DD,7E.00,21,0E,00,CD,08,B6.797 
810 DATA 01,4A,4E,09,D1,01,02,00,3E,07,CD,2F,81,DD,E1,4F6 
820 DATA Dl. Cl, DD,23,13. 13, 10,DB,C9.DD,21,2A,87,06, 04,625 
830 DATA C5.DD,E5,DD,7E,0D,3C,FE,02,DA,75.79,AF,DD,77,8F6 
840 DATA OD,21,BD,00,CD,08,B6,ED,4B,BD,87,09,DD. 75,07,624 
850 DATA DD,74,08,DD,7E,0E,FE,00,C4,3F,7C,DD,El,Cl f ll,7CF 
860 DATA 11,00,DD,19,10,CD,DD,21,2A.87,06,04,CS.DD,E5,624 
870 DATA DD.7E,00.FE,00.CA.D5,79.DD.7E.0E.FE,00.C2,D5,86F 
880 DATA 79,DD,7E,0C,C6,06,FE,B9,DA,C8,79,FE.C3,D2,C8,9D9 
890 DATA 79.DD,36,O0,O0.AF,DD,77,0C,FE,lE,DA,D5.79,FE.7DD 
900 DATA 8C,DC,E8,79,DD,E1,C1,11,11,00,DD.19.10,C2,DD,80F 
910 DATA 21.2A.87,06,04.C3,DC,7C,2A,BF,87.7E.FE.02,CA,6AF 
920 DATA FA,79,FE,06,CA,FA.79,DD,35,OB,C9,DD,34.0B,C9,87F 
930 DATA DD.21.2A.87,06.06.C3,OD,7A,DD,21.2A.87,06,04,4BE 
940 DATA C5,DD,E5,2A.BD,87,DD, 75, 07, DD,74.08,DD,7E. 00,802 
950 DATA FE,OO,CA,48,7A,2A,BF,87,7E,FE,0D,CA,32,7A,DD,7D6 
960 DATA 7E,0C,C6,08,C3,37,7A,DD,7E,0C,C6,06,DD,77,0C,65F 
970 DATA FE,B9,DA,48,7A,FE,C3,D2.48,7A.DD,36,00.00,DD,898 
980 DATA E1,C1,11,11,00,DD,19,10,BB,DD,21,2A,87,06,07,541 




990 DATA C3.DC,7C,DD,21.2A,87,06,08,C5.DD,E5,2A,BD,87.7CD 
1000 DATA DD,75,07,DD,74,OB,DD,7E,0O,FE,0O,CA,94,7A,DD,7C0 
1010 DATA 7E,OE.FE,00,C2,94,7A,DD,7E,OC,C6.06,FE.B9,DA,81E 
1020 DATA 91,7A,FE,C3,D2,91,7A,DD,36,00,00,AF,DD,77,0C,7CB 
1030 DATA DD,7E,OE,FE,00,C4,3F,7C,DD,E1,C1,11,11,00,DD,764 
1040 DATA 19, 10, BB, DD, 21 . 2A, 87, 06, 08, C3, DC, 7C. DD, 21, 2A.5E4 
1050 DATA 87,06,04.C5,DD.E5,DD,7E,0D,3C.FE,02,DA,C2,7A,7D2 
1060 DATA AF,DD.77.0D.21,C4,0O,CD,08.86,01,97,5A.09.DD,62B 
1070 DATA 75.07, DD,74,OB,DD,7E,0E,FE,OO.C4,3F,7C,DD.E1.779 
1080 DATA Cl, il. ll.OO.DD, 19, 10, CE, DD. 21 , 2A. 87, 06, 04, C5. 535 
1090 DATA DD,E5,DD.7E,00,FE.OO,CA,27,7B.DD.7E,OE.FE,00,7EE 
1100 DATA C2,27.7B,DD,7E,0C,C6,06,FE.B9,DA,14,7B,FE,C3,87B 
1110 DATA D2,14.7B,DD,36,00,00,AF,DD,77,0C,DD.7E,0F.3C,629 
1120 DATA FE, 19, DA, 21 , 7B. AF, DD. 77 , OF, CD, 3A, 7B. DD, El , Cl , 8A0 
1130 DATA 11,11,00,DD,19,10,BC,DD,21,2A,87.06,04,C3.DC.53C 
1140 DATA 7C,DD.7E.0F,FE,0F,DA,46,7B,DD,34,0B,C9,DD,35,7B5 
1150 DATA OB, C9, DD. 21 , 2A, 87, 06. 06, C5, DD, E5, DD, 7E. OD, 3C, 6BA 
1160 DATA FE,03,DA.5D,7B,AF,DD,77,0D,21,50,00,CD,08,86,68F 
1170 DATA 01,53,5C,09,DD.75.07,DD,74,08,DD,7E.OE.FE,00.5D2 
1180 DATA C4,3F,7C.DD,E1,C1,11,U.00.DD,19,10,CE.DD,21,6F2 
1190 DATA 2A,87,06,06.C5,DD,E5,DD,7E,00,FE,00,CA,B1.7B,793 
1200 DATA DD,7E.0E.FE,00,C2,B1,7B,DD,7E,0C,C6,06,DD,77,7DC 
1210 DATA 0C ( FE,B9.DA,B1,7B.FE,C3,D2.B1,7B.DD,36, 00.00. 89B 
1220 DATA DD,E1,C1, 11,11,00,DD, 19, 10, CD, DD,21, 2A. 87, 06 , 629 
1230 DATA 06,C3.DC,7C.DD.21,2A.87,06,04.C5,DD,E5.DD.7E,7BC 
1240 DATA OD,3C,FE,02,DA,D7,7B,AF,DD,77,0D,21,BD,OO,CD,730 
1250 DATA 08.86,ED,4B,BD,B7.09,DD,75,07,DD,74,08.DD,7E,720 
1260 DATA 0E,FE,00.C4,3F,7C.DD,E1,C1,11,U,00,DD,19,10,632 
1270 DATA CD,DD,21,2A,87,06,04,C5,DD,E5,DD,7E,00,FE.00,766 
1280 DATA CA,2C.7C,DD,7E,OE,FE.0O,C2.2C,7C,DD.7E,OC,C6,770 
1290 DATA 06.DD,77,0C,FE,B9,DA,2C,7C.FE,C3,D2.2C,7C,DD.BB7 
1300 DATA 36,00,00,DD.E1.C1,11,11,OO.DD,19,10.CD.DD,21,5AB 
1310 DATA 2A. 87. 06, 04, C3, DC, 7C, DD. 7E, OE, 3C. DD, 77 . OE. FE, 6DB 
1320 DATA 03,DA,68.7C.FE,04,DA.72,7C.FE.05.DA,84,7C,FE,866 



1330 DATA 06, DA, 72, 7C, FE. 07 , DA. 68. 7C, DD. 36, OE, 00 , DD, 36. 6C5 
1340 DATA 00, 00, C9, 21. 10, 27, DD, 75, 07 , DD, 74, 08, C9, 21 , 71 . 52E 
1350 DATA 59,DD,75,07,DD,74,08,DD.36.09.07.DD.36.0A,15.560 
1360 DATA C9,21.04,5A.DD.75,07.DD.74.08,C9,3A,39,86.3C.5F8 
1370 DATA 32.39.86,FE.03,DA,B7,7C,FE,05,DA,C0,7C,FE,07.81D 
1380 DATA DA.D3.7C,FE,09,DA,C0,7C,FE,19,DA,B7,7C,CD,99,9D0 
1390 DATA 77, CD,36.B2,C3, 72. 77.21, 10, 27, 22,32, 86, C3, 72,60F 
1400 DATA 77,21,71, 59, 22. 32. 86, 3E,07. 32, 34, 86, 3E, 15, 32, 3F2 
1410 DATA 35,86, C3, 72, 77,21, 04,5A,22,32,86.C3, 72, 77.C5, 631 
1420 DATA DD,E5,C5,DD,E5,16,0O,DD,7E.0O,FE,00,CA,2F,7D,82E 
1430 DATA 3A.39,86.FE,00.C2,2F,7D,3A,36,86,C6,08.DD,BE,6C4 
1440 DATA 0B,D4,D6,7D,3A,36,86,DD,46,09,05,90,DD,BE,0B,68F 
1450 DATA DC,D6,7D,3E,8C,DD,BE,0C,D4.D6,7D,3E,8C,DD,96.904 
1460 DATA OA,DD,BE,OC.DC,D6,7D,7A,FE,04,C2.2F,7D.3E,01,709 
1470 DATA 32,39,86,DD,36,0E.01,DD,E1,C1,U,11,00,DD,19,5AA 
1480 DATA 10,A6.DD,E1.C1.2A.BF,87,7E.FE,0C,CB,FE,0D,C8,8CB 
1490 DATA C5,DD,E5,DD.7E,00,FE,00,CA,AF,7D,FE,FF,CA,AF,A4C 
1500 DATA 7D,FD,21,3C.86.O6,02,16,O0,FD,7E.0O.FE,00,CA,5BE 
1510 DATA A8,7D,FE.FF,CA,A8.7D,DD,7E.0E,FE,00,C2,AB,7D,95F 
1520 DATA DD,7E,0B,DD,86,09,3D,FD,BE,0B,D4.D6,7D,DD,7E,857 
1530 DATA OB, 3D. 3D. FD, BE.OB. DC, D6. 7D, DD. 7E.0C,C6, 14, FD. 7BB 
1540 DATA BE.0C,D4,D6,7D,DD,7E,0C,FD,BE,0C,DC,D6,7D,7A,8C8 
1550 DATA FE,04,C2,A8,7D,CD.BA.7D,ll.ll,0O,FD,l9.10,AD,6E2 
1560 DATA DD,E1,C1,11,11,00,DD,19,10,8D,C9.DD,36.0E,01.61F 
1570 DATA FD,36,00,FF,CD,3F,7C,CD,CC.84,DD,E5,FD,E5,C5,A40 
1580 DATA CD,EA.78,C1,FD,E1.DD,E1,C9,14,C9,DD,21.2A,87,9E1 
1590 DATA 06,02,C5,DD,E5,DD,7E,OO.FE,00,CA,00,7E.DD.7E,78B 
1600 DATA OC,C6,08.FE,B4,DA,FD,7D,DD,36,OO,00,CD.F4,84,838 
1610 DATA CD,EA.78,DD,77,OC,DD,El,Ci,ll,ll,00,DD,19,10,736 
1620 DATA D4,3A,39, 86,FE,00.C0,DD, 21, 2A.87, 06,02, 16,00.558 
1630 DATA 3A,37,86,DD.96,"0A,DD,BE,0C,DC,D6,7D,3E,A5,DD,80A 
1640 DATA BE,0C,D4,D6,7D,3A,36,86,FE,14,C4,D6,7D,7A,FE,BB8 
1650 DATA 03,C2,3F,7E,3E,01, 32,39, 86,11, 11, 00, DD, 19. 10,3DA 
1660 DATA DO,C9,DD,21,2A,87.06,08,DD.36,00,00,11,U,00,48B 
1670 DATA DD,19,10,F5,C9,C5,3A,B4,B7,DE,02,10,FC,32,B4/7D0 
1680 DATA B7,Ct,C9,2A,B9,87,23,22,B9.87,7E,FE,0O,C0,21,75D 
1690 DATA 5F, 89 . 7E, 22, B9, 87, C9, 2A, BB . 87, 23, 22, BB. 87, 7E, 702 
1700 DATA FE,00,CO,21,6B,89,7E.22,BB,87.C9,2A.C3,87,23,715 
1710 DATA 22,C3,87.7E,FE,0O,C0,21,7A,89,7E,22,C3,87,C9,77F 
1720 DATA 2A.C5,87,23,22,C5,87,7E,FE,00.C0,21,7F,89,7E,6EA 
1730 DATA 22,C5,87,C9,2A,C1,87,23,22,C1,87,7E,FE.00,C0,772 
1740 DATA 21,6E,89,7E,22,C1,87,C9,2A,C7,87,23,22,C7,87,6D4 
1750 DATA 7E, FE, 00, CO, 21 , 88. 89. 7E, 22, C7, 87, C9, CD. 47, 7E, 7B7 
1760 DATA 2A, BF , 87, 23, 7E, FE, 00, C2, EB, 7E, 3E, 01 , 32, B5, 87, 6E7 
1770 DATA C9,22,BF,87,FE,01,CA,5B.84.FE,02,CA,99,83,FE,8BD 
1780 DATA 03,CA,D0,83,FE.04,CA,62,83,FE,05,CA,22,84,FE,842 
1790 DATA 06,CA,C2,82,FE,07,CA,B8,82,FE,08,CA,77,82,FE,8E4 
1800 DATA 09,CA,B1,82,FE,0A,CA,18,B4,FE,0B,CA,2A,83,FE,7C2 
1810 DATA 0C,CA,DB.82,FE,0D,CA,CC,82,3E,01,32,B6,87,AF,7B3 
1820 DATA 32,2B,86.32,3C,86,32,4D,86,CD,47,7E,CD,BE,84,67D 
1830 DATA 21,64,00.ED.5B.B7,87,0l,33.00.3E.A3.CD.2F,81,59D 
1840 DATA 21,4F,89,11.88,FB,CD,94,81,21,45,89,11,CE,D4.711 
1850 DATA CD.94,81,CD,B0,84,06,96,C5,06,06,CD,A5,84,CD,813 
1860 DATA 47,78,CD,E7,84,CD,EA,78,CD,E2,7F,C1,10,EB,06,916 
1870 DATA FA,CD.A5,84,06,64,CD,A5,84,C3,CB,75,3A,CD,87,8E1 
1880 DATA 3D,B7,32,CD,87,CC,D8,7E,3A,B5.87,FE,01,C8,2A,803 
1890 DATA BF,87,7E,FE,01,CA,C4,7B,FE.02,CA,62,79,FE,03,872 
1900 DATA CA, D8, 7D, FE, 04, CA, 62, 79, FE, 05, CA, 5B, 7A, FE, 06, B6C 



1910 


DATA 


CA,62,79.FE,07,CA.62,79,FE 


08,CA.C4,7B.FE.09,865 


2490 


DATA 


10, C3 


3E 


32 


32 


CD 


B7 


C9 


DD.21.2A.87 


06 


06 


DD 


62A 






CA,AF,7A,FE.0A,CA,5B,7A,FE,0B,CA,4A,7B,FE,0C,83C 


2500 


DATA 


36,00 


01 


DD 


36 


OD 


00 


DD 


36, OE, 00, CD 


66 


7E 


FE 


527 




n*Ti 


CA, 07, 7A,FE,0D,CA,FE,79, 11 


14,86,06, 17, CD, 1B, 647 


2510 


DATA 


2B.D4 


66 


7E 


DD 


11 


OB 




qc 7c nn 77 
yp , / 1, uu, / / 






36 


79F 


r 




B1,C5,D5,DD,7E,00,FE,00,28 


40, DD, 7E, OC, FE, A2, 7E3 




lïàU 














M 


aa i q 1 a 
uu, uu, iy, îu 


ru 






^F9 


1950 


DATA 


D2, 33, 80, CD, El , B5, DD, 7E, OC 


21. 33, 00, CD, 08, 86, 6CE 








R7 


rq 






?A 


R7 


06, 04, DD, 36 


M 




nn 




1960 


DATA 


DD, 4E, OB , 06, 00, 09, 01 , 65, 00 


09. DD, 74, 04, DD, 75, 45B 


2540 


DATA 


36 0D 


00 


DD 


36 


OE 


00 


CD 


8C.7E DD, 77 


OC 


DD 


36 


5AE 


1970 


DATA 


03, 3A, B6, 87, FE, 00, CA, 33, 80 


DD, 56, 06, DD.5E, 05.66E 


2550 


DATA 


OB, 1E 


DD 


36 


09 


07 


DD 


36 


OA, 1B, 11,11 


00 


DD 


19 


39C 


1980 


DATA 


DD, 4E, 09, 06, OO.DD, 7E.0A, CD 


06, 81 , CD, 6E, 85, D1.684 


9^7n 






3E 


32 


32 


CD 


87 


21 


5D,56,22,BD 


87 


C9 


DD 


6C1 




DATA 


Cl, 13, 10, AF, 11, 14,86.06, 17 


CD, 1B,81,C5,D5,DD,63B 




DATA 


21 '2A 










77^ 




01 DD 36 OD 








* 


2000 


A 


7E,0O,FE,OO,28,2C,DD.7E,OC 


FE, A2,D2, 75,80, DD.77B 








rn 


AT 


7K 


nn 




ftp 


nn o£ ad Ai 

UU, ju, UD, Un 


nn 




OQ 








66, 04, DD.6E, 03, DD, 56,08, DD 


5E, 07, DD, 7E, 00, FE, 68E 




TA 














00 


DD 19 10 DB 






32 




2020 


DATA 


FF, C2, 68, 80, 11, 10, 27, DD, 46 


09, DD, 7E, OA, CD, 06,655 


2600 


DATA 


Cd'b7 


21 


5D 


56 


22 


BD 


87 


C9.DD.21.2A 


87 


DD 




719 


2030 


DATA 


81, 4F, CD, 94, 85, Dl, Cl, 13, 10 


C3, 11, 14,86,06, 17, 5F6 


2610 


DATA 


00,01 


DD 


36 


OB 


00 


DD 


36 


OC, 00, DD, 36 


09 


14 


DD 


44B 


2040 


DATA 


CD, 1B, 81 , C5, D5, DD, 7E, 00, FE 


00, 28, 26, DD, 7E, OC, 711 


2620 


DATA 


36, OA 


13 


21 


D7 


57 


DD 


75 


07, DD, 74, 08 


DD 


21 


3B 


58D 


2050 


DATA 


FE, A2,D2, Bl, 80, DD , 66. 04, DD 


6E, 03,26, DD, 56, 02, 798 


2630 


DATA 


87, DD 


36 


00 


01 


DD 


36 


OB 


1E,DD,36,0C 


00 


DD 


36 


509 






DD,5E, 01, DD, 7E,09,C6,02,4F 


O6,O0,DD,7E,0A,CD,5EF 








-f 




OA 








57 DD 75 07 








5 qù 




nm 


06, 81, CD, C6, 85, Dl, Cl, 13, 10 


C9, 11, 14,86,06, 17, 5E5 


OCCA 


* A 






^ 




ro 


rn 


00 


çih 01 ic cr 


77 


er 










CD, 1B,81,C5,D5,DD,7E,00,FE 


00, 28,39, DD, 7E, OC, 724 








91 




fi7 








ic Afi ni nn 
Jb, uu. ui , uu 










2090 


DATA 


FE, A2.D2, 00.81, DD, 7E.00.FE 


FF,C2,DB,80,DD,36,97B 


2670 


DATA 


DD*36 


OE 


00 


CD 


66 


7E 


DD 


77 OB CD 9F 


7E 


DD 




76F 


2100 


DATA 


OO,00,DD,66,06,DD,6E,05,3A 


B6,87,FE,01,CA,EC,6C5 


2680 


DATA 


OCDD 


36 


09 


02 


DD 


36 


OA 


OF, 11, 11,00 


DD 


19 


10 


37E 


2110 


DATA 


80,21, 10.27, DD, 56,04. DD.5E 


03,DD,4E,09,06,00,4B7 


2690 


DATA 


D9.3E 


32 


32 


CD 


87 


21 


53 


59, 22, BD, 87 


C9 


DD 


2i 


6C9 


2120 


DATA 


DD,7E.0A.CD,06.81.CD,5B,85 


D1,C1,13,10.B6,C9,79A 


2700 


DATA 


2A.87 


06 


04 


DD 


36 


00 


01 


DD,36.0D,00 


DD 


36 


OE 


410 


2130 


DATA 


F5,DD,7E.0C,DD,86,0A,FE,A2 


D2,14.81,F1.C9,F1,97B 


2710 


DATA 


00, CD 


C5 


7E 


DD 


77 


OB 


CD 


8C.7E.DD.77 


OC 


DD 


36 


7B9 


2UÛ 


DATA 


3E.A2.DD.96,0C.C9,DD,21,2B 


86,D5,1A,11,11,00.5EB 


2720 


DATA 


09.07 


DD 


36 


OA 


1B 


11 


11 


00. DD. 19. 10 


D9 


3E 


32 


3B9 


2150 


DATA 


FE,01,28,05.DD,19,3D.18.F7 


D1.C9.C5,E5.D5.ED,874 































2160 DATA H0,E1, 11.00.08, 19,30,04, 11.50.C0. 19. EB, El , Cl . 5BE 
2170 DATA 09,3D.C8,C3,2F,81,C5,E5.D5,ED,BO,E1,06,02.U,797 
2180 DATA 00,08, 19, D2, 5B . 81 , 1 1 , 50, CO, 19, 10, F3, EB, El , CI , 699 
2190 DATA 09, 3D.C8.C3. 48.81. 7E,FE,20,C2,6E,81,3E.2D,06, 658 
2200 DATA 2D,90,E5.D5,D5,21,OE,00,CD,08,86,Oi,20,4E.09,54E 
2210 DATA 01, 02.00, 3E. 07, D1.CD.C2.81.D1. El. 13,13,23, 7E.5A2 
2220 DATA FE.2A,C2.66,81,23.C9.7E,FE.20.C2,9C,81.3E,2D,7A3 
2230 DATA 06.2D,90.E5,D5,D5.21,OE,00,CD.08,86.01.20,4E.54B 
2240 DATA 09, 01,02,00, 3E, 07, Dl, CD, 2F, 81 , Dl, El , 13, 13.23.49A 
2250 DATA 7E,FE.2A,C2.94,81.23,C9,C5,E5.C5,E5,D5.ED.B0,A2F 
2260 DATA Dl. 21, 00, 08. 19,30.04, 11,50, CO, 19, EB, El, Cl, D5.5E3 
2270 DATA ED, BO, Dl, 21, 00, 08, 19,30.04, 11,50,C0, 19.EB,E1,5EA 
2280 DATA Cl, 09, 3D, C8, C3. C2. 81 , AF. F5, 06, 00, OE. 00, CD. 32. 68C 
2290 DATA BC,F1,3C.FE.10.C8.C3.EF,81.21.A2,89,AF.E5.F5,9C7 
2300 DATA 46. 4E. CD, 32, BC, Fl . El , 3C, FE, 10, C8, 23, C3, 03, 82, 79E 
2310 DATA CD.3D,BD,C3.06.BB,E5.D5.ED.52,7C,B5,FE,00,CA,93D 
2320 DATA 2F, 82. Dl ,E1, 7A, BC. D2, 33, 82. 3E, 01 . C9, El . El . AF . 899 
2330 DATA C9, 3E, FF. C9, 3E, 14, 32, 36. 86, 3E, 8C. 32. 37, 86. 3E. 606 
2340 DATA OA, 32, 34, 86, 3E, 16, 32T35. 86. AF, 32, B3. 87. 32. 39. 4BD 
2350 DATA 86,32.3C.86.32.4D.86.3E,01,32,2B.86,C9,DD,21.568 
2360 DATA 5E.86.06,0C,CD,66,7E,DD,77,0B,CD,B2,7E.DD.77,7S7 
2370 DATA OC. 11, 11. 00, DD. 19. 10, ED, C9. CD, 5B, 84. 21, 5D, 56. 56A 
2380 DATA 22, BD. 87. C9. DD, 21 . 2A. 87, 06. 04, DD. 36. 00, 01 , DD. 5D9 
2390 DATA 36. OD, 00, DD, 36, OE, 00. CD. 79, 7E, DD, 77. OF, CD. 8C, 5E4 
2400 DATA 7E.DD,77,0C,DD,36,0B,14,DD,36,09,07.DD,36,0A,550 
2410 DATA 1C, 11, il.OO.DD. 19. 10, D5. 3E. 3C. 32, CD, 87. C9, CD. 5AF 
2420 DATA 62. 83 . 21 , E3, 54 . 22, BD. 87, C9, CD, 99, 83, 21 . E3. 54, 7AD 
2430 DATA 22, BD. 87, C9. DD. 21 . 2A, 87, 06, 06. 21, Fl . 5D, 22. BD, 638 
2440 DATA 87. C3, E7. 82, DD, 21 , 2A. 87.06. 04. 21 , 43, 5D. 22. BD, 60C 
2450 DATA 87,DD,36,00,01,DD.36.0D,00,DD,36.0E,OO.CD,66,50F 
2460 DATA 7E, FE. 2B. D4, 66, 7E, DD, 77, OB, CD, 9F. 7E, DD. 77, OC. 80B 
2470 DATA DD, 36, 09, 06, DD, 36. OA, 1D, 2A. BF, 87. 7E, FE, OC. CA, 61E 
2480 DATA 1D, 83. DD. 36, 09, 04. DD, 36. OA. 15. 11, 11,00. DD, 19.4ÛA 



FAIRBANK ? 

Pas une autre gestion de compte bancaire ? 
Si, si,... mais quel programme ! 

Enfin, une "gestion de compte bancaire" d'une efficacité impressionnante: 
d'une simplicité éclatante. Un véritable livre de caisse de 40 colonnes sur 
disque, Quarante postes, ou comptes, numérotés, dénommés par vous et 
indexés, auxquels toutes transactions sont attribuées. Lister ou imprimer, 
par poste, par nom, par catégorie, de date à date, etc. Analyser à tout 
moment l'ensemble de vos dépenses et recettes. Afficher les soldes des 
postes à plein écran. Idéal pour incorporer dans une comptabilité 
traditionnelle. 

Une importante caractéristique de FAIRBANK est d'avoir toujours sur l'écran 
la dictée nécessaire pour effectuer chaque étape de l'opération en cours 
sans aide extérieure. 

Enregistrer un chèque ? Plus simple que de l'écrire dans un chéquier, semi- 
automatique en fait. Toutes écritures sont triées, classées. Un relevé de 
compte ? Jeu d'enfant ! Saisir deux dates, le listing s'affiche et, à la deman- 
de, une concordance avec le relevé bancaire paraît, toute différence chiffrée. 
POUR CPC 6128 SEULEMENT OC A m 

UTILISE LE DEUXIEME 64 K 4WU F 

PORT PAYE - ENVOI LE JOUR MEME 




2730 DATA 
27A0 DATA 
2750 DATA 
2760 DATA 
2770 DATA 
2760 DATA 
2790 DATA 
2800 DATA 
2810 DATA 
2820 DATA 
2830 DATA 
2840 DATA 
2850 DATA 
2860 DATA 
2870 DATA 
2880 DATA 
2890 DATA 
2900 DATA 
2910 DATA 
2920 DATA 
2930 DATA 



3A,0D,{ 
0C,88,< 
11,E6,( 
0D,88,( 
11,45,( 
F5.D5.I 

ca, i8,i 

3D.C8,: 
04,01,! 
00,20,: 
28,08,: 
Bl,77. 



Î,00,C3,5; 
i,C6,05,3; 
S,02,32,<X 
),C3,53,8! 
5,02,32,01 
l,C3,53,8ï 
),B0,D1,E! 
),CS,F5.E! 
3,F0,C5,F! 
),C0.09,F: 
),1A,FE,0( 
^18,0B,7I 
3, 23. 10. Di 



BD,8T,C9,A! 
38, 32, 0E, SI 
C9,11.64.( 
21,64.00,31 
BF.87.7EJ 
CA,35.85.f 
32, OC. 88.1 
68,3A,0E.i 
3A,0C,88,O 
88, 11, FA, 0 
3A,0D,88,0 
OC,88,C6.0 
3A,0E.88.C 
C9, 87, 19.2 
. 33,00.19, E 
B0,E1.01.3 
,ED,B0.E1.0 
3D,C8,18.E 
,18,E6,55,2 
55,18,03,7 
,01.33,00,0 



,2A,B7, 
,00,11,1 
,01, CA, 
.03.CA, 
,64,00, 
,C6,07, 
,02.32, 
,C3,53, 
,03.32. 
,32,0C, 
,05.32. 
,C9,87, 
.E1,F1. 
,00.09, 
,00,08. 
.C5.E5, 
.08, 1A, 
.E6.AA, 
,C1,0D. 



3,32. 6B2 
S,0MC7 
7,01,624 
i.OO,40B 
ï, 84, 818 
7,84,905 
3,53, 4AC 
2.0E.432 
:,88.4FB 
Ï,3A,541 

D, 88, 461 
3.3A.529 

E, 88. 487 
3,C5,685 
1. 30,945 
1.C1.8D9 
9.30.76C 

E, FE,7FD 
6,AA,4AA 

F, 1A,4B8 
8,18,514 



2940 DATA CE,C5.E5.D5.ED,B0,D1. 21. 00, 08. 19,30,04. 11,50.692 
2950 DATA C0.19.EB.E1,01,33,00,09,C1,3D,C8,18,E5,2A,B7,686 
2960 DATA 87,06, 00, DD,4E,OB,09,DD,7E,OC,FE,00,CA,01, 86,582 
2970 DATA 11,00,08, 19,D2,FD,85. 11,50, C0,19,3D,C2,F2,85, 636 
2980 DATA DD.74,02,DD,75,0i,C9,EB,21,00,O0.FE,00,C8,i9,65A 
2990 DATA 3D,C3,0C.86.01, 02,03,10,11, 12,13,14,15,16,17,234 
3000 DATA 04. 05. 06, 07,08,09. OA.0B,OC.OD,0E,0F, 01. 00,00.073 
3010 DATA 00, 00, 00, 00, OC, 53. OA. 16,00,00,00,00.00,00,00,07F 
3020 DATA 00,00, 00, 00,00.00, CD,54,02,OB, 00,00, 00,00,00,12E 
3030 DATA 00,00.00,00,00.00,00,00,CD,54,02,OB, 00,00.00, 12E 
3040 DATA 00.00,00,01, 00, 00,00,00, 08,93,C4,54,01. 02,00, 1B7 
3050 DATA 00, 00, 00. 00, 00, 01, 00, 00, 00, 00, OD, 93, C4, 54, 01, 1BA 
3060 DATA 02,00,00,00,00,00.00,01,00,00,00,00, 12,93,C4,16C 
3070 DATA 54.01,02.00,00,00,00,00,00,02,00,00.00,00,17,070 
3080 DATA 93.C6.54.01, 03, 00.00,00,00,00,00,02,00,00, 00, 1B3 



3550 DATA 41.54. 49. 4F, 4E, 53. 2A.02, OC. 22, 19, 2B.07. 1E.26.2B7 
3560 DATA 2F. 14. 1B. 00.01.0F. 00.01. 32.55, 73, 4B, 7D. 96. OF , 2D6 
3570 DATA 20, 58, 8C. 00. OA. F3, DA,C3, 00. OA, El, F5.C3, FF. EB.82B 
3580 DATA CD.D7, 00, OA, 14, 1E, 28.0F. 19, 23,00, 4B.4A, 4C, 12,346 
3590 DATA 42,01,08.2F, 12, 42,04, E8.F4.D8.38, E8,28, El, 00, 5AF 
3600 DATA 00, 06.02,01. 18, 17,08,04.09,0F. 10, 12, 1A.0E, 03. 0A9 
3610 DATA 3E,01.21.F3.8A.CD.BC.BC.3E.02.2l.FD,8A.CD,BC,793 
3620 DATA BC, 3E, 03. 21 , 01 , 8B, CD. BC, BC, 3E. 04, 21 , 08 . 8B, CD, 5B2 
3630 DATA BC, BC. 3E, 01 , 32. EE, 8A. 2A.0F, 8B, 22. Fl. 8A. 21 . 1 1, 5F4 
3640 DATA 8B.22.EF.8A,21.DF.8A,01, 00,81. 11, EF.89.C3.D7. 755 
3650 DATA BC.F3,F5,D5,E5.C5,DD,E5,FD,E5,CD,06,8A,FD,E1,C02 
3660 DATA DD,E1,C1,E1,D1,F1,FB,ED,4D,3A,EE.8A.3D.FE,00,A44 
3670 DATA CA.13.8A.32.EE.8A.C9.2A,F1.8A,2B.7C,B5.CA,4E,7F3 
3680 DATA 6A.22. F1.8A, 06, 03, DD,2A,EF,8A,C5,DD.E5. 11.01,749 
3690 DATA 00,DD,7E,00,FE,00,CA,39.8A.CD.60.8A, 11, 05,00, 5B3 
3700 DATA DD,E1,C1,DD,19,10,E5,DD,7E,00.3C.32.EE,8A,DD,BBB 
3710 DATA 23,DD,22.EF.BA,C9,21,11,8B,22.EF,8A.2A,0F,8B,680 
3720 DATA 22,Fl,8A.3E.32.32,EE.8A.C9,DD,7E.00.B7.C8.DD,837 
3730 DATA 7E.04,FD,21,A0.8A.3D.FE,00.CA.7A,8A. 11. 09,00. 5ED 
3740 DATA FD, 19. C3, 6C. 8A, DD. 7E. 00, Fù, 77. 00, DD, 7E, 01 , FD.7F7 
3750 DATA 77, 03. DD. 7E, 02, FD. 77. 04, DD, 7E, 03. FD, 77, 07, FD. 725 
3760 DATA 36, 08, 00, FD, 36, 06, OF. FD, E5, El, C3, AA, BC, 00, 01 . 673 
3770 DATA 00, 00, 00. 00,0F, 00. 00. 00, 02, 00, 00, 00, 05.0F. 00, 025 
3780 DATA 00, 00, 03, 00, 00, 00. 00.0F. 00. 00, 00, 04, 00, 00. 00, 016 
3790 DATA 00, OF, 00,00, 00, 02. 00, 00.00. OO.OF.OO. 00, 00,02, 022 
3800 DATA 00, 00, 00,0F. OF, 00, 00,00, 02, 00, 00, 00, 19,0F, 00, 048 
3810 DATA 00.00.00.00.00,00,00,00,00,00.00,00.00,00.00.000 
3820 DATA 00,00, 00, 00,00, 00, 03.01, 00,OA.OA.FF, 01, 01, 00, 119 
3830 DATA OA, 01 , OF. FF. 03. 02, OA, FF, 08. 05. FF, 04, 02. 10.02. 34B 
3840 DATA 01,0F, FF, 01. C3. 00,01, 3F. 01, 28,01, 00,00. OB. 00.248 
3850 DATA 02, 1C. 01 . 50, 01 , 00, 27. 01 . EF, 00, 28, 01 . 00, 00, OB. 1BB 
3860 DATA 00.02, D5, 00, 50, 01, 00.27, 01, 3F,01, 28,01, 00.00, 1B9 
3870 DATA OB.00.02. 1C.01, 50.01, 00,27. 01, BE, 00, 28, 01, 00, 18A 
3880 DATA 00. OB. 00. 02, D5.00. 50, 01 , 00, 27. 01. 3F, 01 , 28. 01 , 1C4 
3890 DATA 00.00, OB, 00.02, 1C.01. 50.01. 00.27,01, EF, 00,28, 1BA 
3900 DATA 01, OO.OO.OB. 00, 02.D5.00, 50,01. 00, 27,01 , EF.OO. 24B 
3910 DATA 28.01. 00. OO,0B,OO.02.FD, 00, 50,01, 00. 27.01, 3F. 1EB 
3920 DATA 01, 28, 01. 00,00, OB, 00, 02, 1C, 01, 50.01, 00,27, 01, OCD 
3930 DATA 50, 00. 28,01. 00, 00, OB.OO. 02,47. 00.50. 01, 00, 27, 145 
3940 DATA 01, 3B, 00. 28,01, 00, 00, OB, 00, 02,35. 00, 50,01, 00, OFB 
3950 DATA 27, 01. 50, 00, 28. 01, 00. 00, OB.OO. 02.47, 00. 50, 01, 146 
3960 DATA 00. 27, 01. 2F, 00, 28. 01. OO.OO.OB, 00, 02,35, 00. 50,112 
3970 DATA 01. 00, 27,01, 50,00,28,01, 00. OO.OB.OO, 02.47, 00, 0F6 
3980 DATA 50.01, 00,27, 01, 3B, 00,28,01, 00,00, OB, 00, 02,35, 11F 
3990 DATA 00, 50,01, 00. 27,01. 3B, 00.28. 01. 00.00, OB.OO. 02. ÛEA 
4000 DATA 3F.00. 50.01. 00,27. 01. 50.00.28,01. OO.OO.OB. 00, 13C 
4010 DATA 02.47.00, 14.01, OO.OB.OO, 02.47,00.14. 01. 0O.0B.OD2 
4020 DATA 01, 00, 00. 00. 02,02,47. 00.14.01. 00, OB, 00, 02, 47, 0B5 
4030 DATA 00, 14, 01, 00, OB, 01, 00,00,00. 06, 02,47, 00, 14.01, 085 
4040 DATA OO.OB, 00. 02,47, 00, 14. 01. 00, OB. 01. 00, 00. 00. 02.077 
4050 DATA 02, 47,00, 14. 01. OO.OB. 00.02.47.00. 14.01. OO.0B.0D2 
4060 DATA 01, 00,00, 00, 06, 02, 59,00. 14, 01, 00, CB, 00, 02,53, ODD 
4070 DATA 00, 14, 01,00, OB, 01, 00.00. 00, 02.02.59, 00, 14,01,093 
4080 DATA 00. OB, 00. 02.59, 00, 14.01, 00,0B, 01, 00, 00,00,06,080 
4090 DATA 02,59,00, 14, 01, 00. OB.OO, 02. 59, 00,14, 01,00, 0B.0F6 
4100 DATA 01, 00, 00, 00.02, 02,59,00. 14, 01. OO.OB, 00. 02.50,01)0 
4110 DATA 00, 14, 01. OO.OB, 01, 00,00,00.06. 02.47, 00. 14,01. 085 
4120 DATA OO.OB, 00, 02,47. 00, 14,01, 00,08,01, 00, 00, 00, 02, 077 



4130 DATA 02, 47, 00. 14.01. 00, OB.OO. 02, 47. 00, 14. 01, 00. 0B.0D2 
4140 DATA 01. 00, 00.00.06. 02.47, 00. 14, 01, OO.OB, 00.02, 47, 0B9 
4150 DATA 00. 14, 01. 00, OB, 01, 00, 00, 00. 02.02.47,00. 14,01, 081 
4160 DATA OO.OB. 00.02,47. 00,14, 01. OO.OB. 01. 00. 00. 00, 06, 07B 
4170 DATA 02,3B.OO,14.01.00.0B,00,02,3B,00,14.01.00,OB,OBA 
4180 DATA 01. 00,00.00. 02.02. 3B. 00, 14, 01, 00, 08,00, 02. 3B.09D 
4190 DATA 00, 14. 01. 00, OB, 01. 00, 00. 00, 06. 02, 3B, 00, 14, 01. 079 
4200 DATA OO.OB. 00. 02.3B.00. 14,01, 00,0B, 01, 00. 00, 00, 02,068 
4210 DATA 02.3B.0O. 14.01, OO.OB, 00. 02.3B, 00. 14,01, OO.OB.OBA 
4220 DATA 01. 00, 00,00,06, 02, 35, 00,14,01, 00, OB.OO, 02,35. 095 
4230 DATA 00, 14,01, OO.OB, 01, 00,00, 00,02. 02,35. 00, 14.01.06F 
4240 DATA OO.OB, 00, 02,35. 00.14, 01, OO.OB. 01. 00. 00, 00, 06, 069 
4250 DATA 02.35. 00,14.01. OO.OB, 00. 02,35,00, 14. 01. 00. OB.OAE 
4260 DATA 01. 00, 00, 00,02, 02.35, 00,14,01. 00,OB, 00, 02,47, 0A3 
4270 DATA 00, 14,01, OO.OB, 01, 00, 00, 00,06, 02,3B, 00. 14,01,079 
4280 DATA 00, OB.00.02.3B, 00. 14.01, 00, OB, 01, 00,00, 00,02, Û6B 
4290 DATA 02, 3B. 00. 14.01. 00. OB.OO, 02, 3B. 00. 14. 01, OO.OB.OBA 
4300 DATA 01, 00, 00,00.06.02. 3B. 00, 14, 01. 00, OB, 00, 02,3B,0A1 
4310 DATA 00,14. 01. OO.OB, 01, 00,00, 00, 02, 02,38, 00,14.01, 075 
4320 DATA OO.OB. 00.02.3F, 00,14. 01, 00, 08,01,00.00,00,06. 073 
4330 DATA 02. 47. 00. 14. 01. 04, 8E, 00, 14, 03, OB.OO, 02, 47, 00, 15B 
4340 DATA 14.01, OO.OB, 01, 00,00,00. 02. 02.47. 00.14, 01. 04,085 
4350 DATA 8E. 00, 14.03.0B. 00, 02.47,00, 14. 01. OO.OB. 01.00. 11A 
4360 DATA 00,00,06,02,47,00, 14, 01,04, 8E.00.50.03.0B, 00, 154 
4370 DATA 02.47.00. 14.01. 00.0B.01, 00, 00. 00.02.02,47.00. 0B5 
4380 DATA 14.01,OO.OB.OO,02,47,00,14,01,00,OB,01,00,00,08A 
4390 DATA 00,06.02,59,00,14,01.04.83.00.14,03,08,00.02,151 
4400 DATA 59,00, 14. 01.00, OB, 01, 00, 00, 00, 02,02.59, 00, 14. OEB 
4410 DATA 01. 04. B3.00.14, 03, OB, 00,02,59, 00.14. 01, 00, OB, 155 
4420 DATA 01. 00,00, 00,06, 02,59,00, 14, 01, 04, B3.00, 50.03. 181 
4430 DATA OB.OO, 02,59. 00.14. 01, OO.OB, 01.00.00.00.02.02.08B 
4440 DATA 59,00, 14, 01, 00. OB.00.02. 50. 00, 14, 01,00, OB, 01, OEC 
4450 DATA 00,00.00.06.02,47.00. 14. 01, 04. 9F. 00. 14.03, OB. 129 
4460 DATA 00,02, 47, 00,14, 01, OO.OB, 01, 00, 00, 00, 02, 02,47,085 
4470 DATA 00, 14.01, 04.9F,00,'l4,03,OB, 00,02.47, 00, 14,01,138 
4480 DATA OO.OB, 01, 00,00, 00, 06. 02,47, 00, 14, 01, 04, 9F, 00, 113 
4490 DATA 50. 03. OB.OO, 02, 47, 00,14.01, 00, 0B.01, 00, 00,00, 0C8 
4500 DATA 02,02,47, 00,14, 01, OO.OB, 00, 02,47, 00,14, 01, 0O.0C9 
4510 DATA OB.01,00.00.00.06.02,3B.00.14.01,04.BE.00.14.13A 
4520 DATA 03,OB,00,02,3B,00, 14,01, 00, OB, 01, 00, 00, 00, 02, 06E 
4530 DATA 02.3B.OO, 14,01, 04, BE.OO. 14, 03, OB. 00, 02. 3B, 00, 173 
4540 DATA 14, 01 , OO.OB. 01 , 00, 00, 00, 06, 02, 3B, 00, 14, 01 , 04, 07D 
4550 DATA BE.OO. 50, 03.0B. 00. 02.3B.00. 14.01, OO.OB. 01.00, 17A 
4560 DATA 00.00. 02.02.3B. 00.14. 01, 00. OB.00.02. 38, 00. 14,080 
4570 DATA 01. 00, 0B.01, 00,00, 00.06.02.35, 00.14. 01, 04.8E.OF1 
4580 DATA 00. 14,03, OB, 00, 02, 35, 00, 14, 01,00, OB, 01, 00,00, Û7A 
4590 DATA 00,02.02.35.00. 14.01, 04.8E. 00, 14.03. OB, 00,02, 104 
4600 DATA 35,00. 14, 01,00, OB. 01. 00, 00, 00,06. 02,35, 00. 14, 0A7 
4610 DATA 01, 04, 8E.00.50.03.0B. 00.02, 35,00. 14. 01, OO.OB. 148 
4620 DATA 01, 00. 00,00.02,02.35, 00. 14, 01, 00, OB.OO, 02, 47, 0A3 
4630 DATA 00. 14.01, OO.OB.Ol. 00,00,00, 06, 02.3B, 00, 14,01,079 
4640 DATA 04. B3.00. 14.03, 0B.OO.02.3B. 00, 14, 01, OO.OB.Ol, 137 
4650 DATA 00, 00.00.02.02, 3B. 00. 14,01,04. B3, 00, 14.03.0B, 12D 
4660 DATA 00.02, 3B. 00, 14,01, 00,OB, 01, 00, 00, 00,06, 02.3B.0A1 
4670 DATA 00, 14.01, 04.B3, 00, 50,03,08,00, 02.3B, 00. 14,01, 17C 
4680 DATA OO.OB.Ol, 00,00, 00. 02, 02.38, 00, 14, 01, 00, OB, 00, 06B 
4690 DATA 02, 3F.00, 14. 01, OO.OB, 01. 00, 00.00, 06, 02, 47,00, OBI 
4700 DATA 14, 01, OO.OB.OO. 02.47. 00, 14,01, 00, OB, 01, 00, 00.08A 



471 Q DATA 0O,M,02.47,ÛÛ.i* t 01,0û,0B ( 00.02,A7,«I.U*01,«8 
4720 DATA 00.08.01,00.00,00.06.02^7.00. l^Ol.OO.OB.OO.OTI 
4730 DATA 02*47,00,14.01.». 06,01, 00,00.00. 02, 02, &0, 00, QBE 
4740 DATA 14, 01,00, 08. 00. 02. 3F, 00,14,01. 00. 08,01.00.00,002 
4750 DATA 00.06, 02. 8E,0Q. 14,01,04, 1C. 01, U.Oa.OB.ÙO.OZ.OFO 
4760 Dm 6E,Û0. 14, Oi.OÛ.ÛB, 01,00,00. 00,02, 02.6Ë, 00, 14,155 
4770 DATA 01.04, 1C.0I, 14, 03,08* 0Û,O2i8E, 00,14,01. 00. 0B,0F4 
4780 DATA 01, 00, 00.00,06, 02» 0£, 00, 14. 01* Û4, 1C,Ô1 ,S0, 03. 120 
4790 DATA OB, 00,02, SE, 00, 14. 01,00. OB. 01. 00, 00, 00.02,02. OCO 
4B00 DATA 8L 00, 14.01 , 00,08,00, 02, BE, 00, 14,01,00, ÛÊ, 01, 15F , 
4810 DATA 00,00,00,06.02,63,00,14,01.04,66,91,14,03,08,150 
4820 DATA 00, 02,83.00, 14,01,00,0b, 01, 00, 00, 00, 02,02. B3, IÔD 
4B30 DATA 00, 14,01.04,66,01, 14,03,08, 00,02, 63,00,14,01. 16C 
4840 DATA 00, OB.0 1,00,00,00, 06, 02. B3, 00, U.01, 04, 66, 01, 143 
4850 DATA SO. 03, 06. 00, 02. fi3, 00. 14,01,00, 08,01 ,00,00,00. 134 i 
4860 DATA 02,02,83,00,14,01,00,00,00,0^,^,00,14,01,00.560 
4670 DATA Ûi,Ol,Ô0.00.00 ( O6,O2,ÔE,OQ,l4 fc 0i.Û4,3F,0i,U.i0F 
46a0 DATA 03,08, 00. 02. 6£,00, 14.01. 00, 08, 01, 00, 00, 00. 02, OC i 
4890 DATA 02, 8Ê, 00, 14, 01, 04.3F. 01, 14, 03. ÛB, 00. 02. 8E, 00, 198 
4900 DATA U. 01, 00, 08, 01, 00, 00, 00, 06,02, 6E, 00, 14, 01 ,04, ODÛ 
4010 DATA 3F, 01. 50, 03, 08, 00, 02, 6E, 00,14, 01,00,08.01, 00, 14F 
4920 DATA 00, 00, 02, 02. SE, 00, 14,01,00. 08, 00,02. ôE t 00, U, lSfi 
4830 DATA 01,00,08,01, 00,00,00, 06,02, 77,00, 14,01 ,04, 7B, 120 
4940 OATA 01.14.03,08,00,02,77,00,14,01,00,06,01,00,00.080 
4950 DATA 00. 02, 02, 77. 00. 14,01.04.78.01. 14,03.08.00.02,134 



4960 DATA 77,00,14.01,00.08.01,00.00,00.06,02.77.00.14.128 
4970 DATA 01,04,78,01,50,03,08,00,02,77,00,14,01,00,08.178 
49ÔO DATA 01, 00,00, 00,02, 02, 77, 00, 14, 01, 00, OB, 00, 02, 77, 115 
48âO DATA 00, 14, 01. 00,08,01. 00.00. 00,06. 02,64, 00, U, 01, OAÔ 
500C DATA 04, IC, 01, 14, 03, 08, 00, 02, 64,00,14, 01, 00, 08, 01, ODÛ 
SOLO DATA Û0,OO T OÛ,Û2,O2,6A,OO,14,ÛI,O4,1C,O1,14,O3,OB,OC6 
5020 DATA OO,02,6A.0O, 14, 01, 00, 08,01,00, 00, 00,06, 02, 6A.0FF 
5030 DATA 00. 14. 01. 04, 1C, 01, 50, 03,08, 00. 02.64,00, 14.01, US 
5040 DATA 00 t 0B } 01, 00, 00. 00, 02, 02.6A, 00, 14,01, 00,08,00, 09A 
5050 DATA 02, BE, 00, 14,01,00, 08,01,00,00,00,06.02, 77, 00. 130 
5060 DATA 14.01,04,78,01,14,03,08,00.02,77,00,14,01,00.145 
5070 OATA OB. 01, 00, 00.00, 02,02,77, 00, 14,01, 04, 78, 01, 14, 130 
5060 DATA 03, OB, 00, 02, 77, 00, 14. 01, 00, 08, 01, 00, 00, 00, 06, ÛAÊ 
SQ90 DATA 02. 77, ÛO, 14.01. 04, 78. 01, 60,03, 08, 00, 02. 77, 00. 1E5 
5100 DATA 14, OLOO.OB, 01,00,00, 00,02, 02, 77.00, 14,03,00.081 
5H0 D4TA 0B,00 ( O2.?F.OO,14,0LOO,Ofl,01,O0,OO,O0,06,O2,ÛB5 
M20 DATA 8E,Û0, 14, 01. OÔ, 08, 00,02, 6E.O0, 14. 01,00.08.01, 15F 
5130 OATA 00, 00, 00,02. 02. 6E.00. 14,01, 00. 08. 00, 02. 8E, 00, 142 
5140 DATA 14, 01, 00, 06, 01, 00, 00, 00, 06, 02. BE, 00, 14, 01. 00, OCC 
51S0 DATA 0&.0Û,02,aE,0O,U,01,00,0B,01,0O,0û,O0,02,Û2.0C0 
5160 DATA 9F. 00,14, 01. 00, 08, 00.02, 7F,00.14, 01,00.06. 01. 161 
5170 DATA lC,Ol l 14 ¥ 01,02,8E,Ô0.14,01,04,47,00,14 l 01.ÛF,14fi 
S160 DATA 01,10,01,14, 01,02,81,00, 14,01,04,47,00,14,01,138 
5190 OATA OF,01,1C,01.14,01,02.8E,00, 14.01,04,47,00. 14, m 
5200 DATA 01. OF , 00, 00. 00.00,00. 00, 00, 00. 00. 00, 00. 00, 00, 010 
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INFORMATIQUE 
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LECTEUR 5" 1/4 

POUR 

CPC464 - CPC664 • CPC6128 

Stocker 800K octets & Doubler ta capacité du DIRectory ! 
Lecteur 80pistes, DFDD, 96tpi . . , 
» Accédez à toute la bibliothèque CP/Méditée sur 5" 1/4 

grâce aux utilitaires disponibles chez « WILD WEST » 

Ranuel h proqs , en français ~ i . - - 1 f ' PW uï^nm de moirca^ swi «ra 12 V 



llliHMU 



POUR CPC 



LE P1US PERFORMANT 
DU MARCHE 
UÉCTEUR NECI 



SEC 



BON DE COMMANDE « WILD WEST», mt» si-mm» * « bw*». t*i. w.n.MM 



NOM 
PftENOM 

ADRESSE : 

VILLt : 

CODE POSTAL : 



im M* pà, 
2 C**)u« " 



C CCP 



I 



DEMANDE DE DOCUMENT A T\OH 
m po«*** uf. rmcra d* ryp* 

M *** 3 urnor^, > 2,20 F Hwr-w 



* Lecteur 1640, OO* 

•Cable 6128 &S4 155,00* 
•Transfo 12 volts 120,GO F 

ci* port 50 4 flC* 

TOTAL ™C 



serveur *9. 77.64,94 - 21/7* nimtel 



DATAS 2 



10 ' 

20 ' DATAS POUR C0SH0S2.BIN 
30 ' 

40 MODE 2:AD=20000:NL=110 
50 FOR B=l TO 276:T0T=O:FOR T=0 TO 14:READ A$ 
60 POKE AD,VAL("4"+A$):T0T=TOT+PEEK(AD):AD^AD+i 
70 NEXT:READ SON»: IF VALflt^SOMiJOTOT THEN 100 
80 LOCATE 1 , 1 : PB I NT "L l GNE" ; NL ; " CORRECTE" 
90 NL=NL+10: NEXT : SAVE"C0SM0S2. B 1 N* , B, ME20, 11025 : END 
100 LOCATE 1,1:PRINT«LIGNE";NL;"1NC0BRECTE»:END 
110 DATA 00,00,00.00,00,00.00,00,00,00,00,00,00,00,00,000 
120 DATA 00, 00, 00. 00, 00, 00, 00,00, A2.00.BA, 00,08,00. A2, IDG 
130 DATA 55,8A,45,AA,04,00,AE,00,5D,00,08,00,FB,AA,DF,569 
140 DATA A2.DF.8A.5D.08.5D.08.5D. 08. AE.AA, FB,AA.E7,AA,7C8 
150 DATA EF, AA, AE.AA, AE, AA, AE.AA, A£,AA,FB,AA,DF,A2,FF,B1E 
160 DATA 8A,AE.AA,5D.AA.5D,08,0C,08,FB,AA,DF,A2,FF,8A,811 
170 DATA AE,AA,FF,08,5D,08,AE,AA,F7,00,DF,AA,DF,8A,5D,862 
180 DATA 08,0C,08.55.08,55,08,DB,A2,DF,8A,DF,AA,0C,AA,5F8 
190 DATA FF,08,5D,08,AE,AA,FB.AA.DF.A2,DF,AA,OC,AA.5D,886 
200 DATA 08.5D.08.AE, AA.DB.A2, DF,8A,55,8A,55,08,04, AA.695 
210 DATA 04,AA,04,AA,FB,AA,DF.A2,DF.8A,AE,AA,5D.08.5D,8O5 
220 DATA 08,AE,AA.FB,AA,DF,A2,DF,8A,A£.08,FF.08.5D.08,8U 
230 DATA AE.AA.0O.00,30,3O.CC.CC,3F.3F,3C,3C,F3,F3,00,62C 
240 DATA 00,00,00.30.20.CC,88,3F.2A.3C.28.F3.A2.00,00,406 
250 DATA 00,00,00,00,00,00.00.00,00,00,00,00,00,00,00,000 
260 DATA 00.00,00,00,00.00.00,00,00.00.00,00.00.00,00,000 
270 DATA 00,00.00,00,00,00,00,00,00.00,00.00,00.00,00.000 
280 DATA 00,00.00.00,00,00,00,00,00.00,00.00.00.00,00,000 
290 DATA 00,00.00,00,00,00.00,00,00,00,FB.AA.DF.A2.DF.405 
300 DATA 8A.0C,08,5D.08,5D.08,5D,08,DB,AA,DF,A2,DF.8A,63C 
310 DATA 0C,AA,5D,08,5D.08,0C,AA,FB.AA.DF,A2.DF,AA,5D,742 
320 DATA AA,5D,AA,5D,08,AE,AA,DB,AA,DF,A2,DF,8A,5D,08,842 
330 DATA 5D,08,5D.08,OC,AA.DB,A2.DF.AA,DF,00,OC,00.5D,5CE 
340 DATA 00,5D,AA.0C,0B,DB,A2,DF,AA,DF,00,0C,00,5D,00,569 
350 DATA 5D,00.5D,00,FB.AA.DF.A2.DF.00.5D,08.5D.08.5D.5E6 
360 DATA 08,AE,AA,F7,A2 1 DF,8A,DF,8A,OC,08,5D,08,5D,08,6A9 
370 DATA 5D,08,FB,AA,EF, AA,EF,AA,AE, AA.AE.AA, AE.AA, AE.9F2 
380 DATA AA,51,A2,55,8A,55.8A,55.08,FF,08,5D,08,AE,AA,67C 
390 DATA DF.A2.DF,A2.DF.8A,0C.AA.5D.08.5D.08.5D.08,F7,747 
400 DATA 00,DF,00,DF,00.5D,00.5D.00.5D.AA,OC.08.F7,A2,52C 
410 DATA CF,8A,DF.8A,5D.08.5D.08.5D.08,5D.08.DB.AA.DF,6BA 
420 DATA A2,DF.8A.5D,08.5D,08,5D,08.5D,08,FB,AA.DF,A2,6CS 
430 DATA DF.8A,5D,08.5D.08,5D.08.AE,AA,DB,AA,DF,A2,DF,7D5 
440 DATA 8A.5D,08,0C,AA,5D,00,5D,00.FB,AA,DF,A2,DF,8A,6EE 
450 DATA 5D.08.5D,08,0C,08.AE,AA,DB,AA,DF,A2,DF.8A.5D.702 
460 DATA 08,OC.AA,5D,08,5D.08.FB,AA,DF.A2,DF.AA,AE,AA,78F 
470 DATA FF,08.5D.08.AE.AA.DB,A2.EF,AA,EF,AA.A£,AA,AE,979 
480 DATA AA.AE.AA.AE,AA,F7.A2,DF,8A,DF,8A,5D,08,5D.08,88F 
490 DATA 5D,0B.AE,AA,F7,A2.DF.BA,DF,8A,5D,08,5D,08,AE,7A0 
500 DATA AA.AE.AA,F7,A2.DF,8A,DF,8A.5D,08.5D,08,OC,08,74B 
510 DATA 5D.08,F7,A2,DF,8A.DF,BA,AE,AA,5D,08.5D,08,5D,74F 
520 DATA 08,F7,A2.DF,8A,DF,BA.0C,08.AE.AA,AE,AA.AE,AA.88F 
530 DATA DB.A2.DF,8A. FF. 8A. AE.AA, 5D.AA.5D,08,OC.08,45,78C 
540 DATA A6, 08,00.00. 00, 00. 00.00, 00.00,00, 00,00, 00.00, OAE 



550 DATA 00.00.00.00,00,DB,OC,00,AE,4D,A2.00.00.00,00,284 
560 DATA 00.00, 00,00.00,00, 00,00, 00.00. 00,00. OO.OO.OC.OOC 
570 DATA DB.OO.AE,8E.8A,00.04,E7.A2,00.00.00,00.00.00.42E 
580 DATA 00,00,00,00,OC,E7.00,00,4D,4D,00,59,00,AE,00,294 
590 DATA 51, OC.08,00, 00. 00.00,00. 00.00,00,00, OO.DB, OC, 14C 
600 DATA 00,04, A2,55,O8,5D.OO,0C. 00.45, AE,8A,00,51,OC,346 
610 DATA A2,00,59,00,04,A2,00,4D,AE,00.04,AA,04,08,8E,3E4 
620 DATA 00, EF, 00, FF, 00, 5D,00,04,DB, 08,00, A6, 00.51, 08,431 
630 DATA 04. AA. 51. 08.45. 08,55, 8A,E7.00,00,00,8E,00,4D.3F5 
640 DATA 00, 45, 4D,AA,Q0,DF, 00,45, AA.Ù4,8A, 55, 08,51, 8A.4D0 
650 DATA 00,00,OC,00,00,00,F7,00,FB,00,A6.00,59,OO.AE.3AB 
660 DATA A2, FF, 08, 55, A2, 04, AA, 04, 08, 00, 00, AE, 00, 00, 00, 408 
670 DATA OC,00,A6,OO.AE,00,5D,00,OC,AA.8E,08,51,08,45,3A7 
680 DATA A2.55, 08,00.00. 59. OO.OO.OO.DB, 00, 4D,00,5D,00,2DD 
690 DATA 8E,00.EF.08,F7.8A.04,8A, 04,08,00, A6,FF,00,5D,5A2 
700 DATA 00,00, 00, 4D,00,8E, OO.DB, 00, 00,00, 59, DB,0C,A2,398 
710 DATA 45,08.04,8A,0O,AE,8E,00.8E,00,00,0O,FF,OO,5D.4Ol 
720 DATA 00, OC, 00, 00, 00, A6, OC, DB, 08, 04, AA, 51, 08,00,50,305 
730 DATA F7,O0,E7.00,0O,0O,8E,00,4D,00.4D,00,00,0O,DF.3E5 
740 DATA 4D,4D,AA,04,8A,55, 08,00, 00,04,A2,0C,00,00,00,2E1 
750 DATA F7,00,FB,00,04.FF,08,00,AE,04,55,08,55,A2.04,507 
760 DATA AA,00.0O.51,O8,AE.OO,O0,O0,OC.00.A6. 00,04, 8E.2F5 
770 DATA 08, OO.OC.04,04. 08,51, 08,45, A2.00, 00.45, AA.59.2AC 
780 DATA 0O.AE.00.DB,00,4D.0O,55,F7,8A,0O,EF.55,55,8A.5CF 
790 DATA 04.8A,04.08,04,A2,55.08,5D.OO,OC,00,4D.00.8E,2E1 
800 DATA 00,00, OO.E7,00,59. 51, 04, A2.45, 08.04. 8A,04.AA,3C0 
810 DATA 04,08,8E,OO.EF.OO,FF.00.5D,00.00,00,OC,00,A6,397 
820 DATA 04,51,08,04,AA,51,08,45,08.55,8A,45,A6,08,00,383 
830 DATA 8E,00,4D,00,00,00.AE,00.DF, 45,45. AA.04.6A, 55. 47F 
B40 DATA 08,00, DB,0C,00,04,4D,A2,00.F7,00,FB,00,A6,00,47A 
B50 DATA 59,00,AE,00,55,08,55,A2,04.AA,00,OC.DB,00,04,3F4 
860 DATA 8E,8A,00,04,E7,A2,00,AE,00.5D,00,OC, 00,04, 08.3C8 
870 DATA 00,OC,E7,00.00,4D,4D,00.00,00,00,00,51,OC,08,1F2 
880 DATA 00,5D,00,8E,00,EF, 00,55, 8A.OO,DB,OC,00,00,00,3AO 
890 DATA 00. 00, 00,00, 00,00.45, AE,8A,00,51,0C,A2.00.59,2D5 
900 DATA 00,04, A2,OO,4D,AE.0O,O0, 00,00,00, 00,00,00, 00, 1A1 
910 DATA 00.00, 00,00,04.DB.08,00,A6, 00,51, 08,00,00, 00, 1E6 
920 DATA 00,00, 00,00,00,00,00,00, 00,00,00,00, 00,45, 4D,092 
930 DATA AA,00,DF,00,45.AA,00,00,00,00,00,00,00, 00, 00,278 
940 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00.00,000 
950 DATA 00.00,00,00,10,20,00,00.00.00.00,00,00.00,64,094 
960 DATA 98,00,00,00,00,00,40,00, 10,8C,4C, 20, 00,80,00,260 
970 DATA 00,04, 00,64, 7F,BF,98.00,08,00,00,14,00,64,7B,339 
980 DATA B7, 98,00,28.00,00, 15,00,44,38, 34, 88, 00,2A,00,2EE 
990 DATA 00.44, 00,64,60,90,98.00.88,00,00,10.10,CC,C0.464 
1000 DATA CO,CC,20.20.00,00, 40,64, 6E, 90,60, 9D.98.80. 00,583 
1010 DATA 00,10,9D,6E,64,98,9D,6E,20,00,00,64.5D,6C,3A,4A9 
1020 DATA 35.9C,AE,98,00.00,3F,BE,E2,64.98,D1,7D,3F, 00,67F 
1030 DATA 0O,3C,F3,B2,C8,C4.71.F3,3C,OO.0O,40,C0.C0,80,74D 
1040 DATA 40,CO,CO,CO,00,00,10,10.9D,28, 14, 6E,20,20, 00,427 
1050 DATA 00,44,10,9D,28.14.6E,20,88.00.00,00,40,CO,AA.3ED 
1060 DATA 4O,C0,AA,O0,OO,O0,OO.05,F2,0A,05,F2,ÛA,O0,OO,3AC 
1070 DATA 00, 00, 04,0F, 08, 04.0F, 08, 00, 00, 00, 00, 55, OC, AA, 141 
1080 DATA 55,OC,AA,00,00,00.00,40.FF.80,40,FF,80,00,00,489 
1090 DATA 00. 00, 00. CO. 00, 00, CO, 00, 00, 00, 00, 00, 00, 00, 10, 190 
1100 DATA 20.00,00,00,00,00,00.00.00,64,98,00,00,00,00, 11C 
1110 DATA 00. 40. 00. 10. 8C.4C. 20, 00, 80, 00. 00. 04. 00, 64, 7F, 2AF 
1120 DATA BF,98,00, 08,00,00, 14,00,64, 7B,B7, 98, 00,28, 00,3C9 



H3Û DATA 0O.1S,OO. 44,38, .34,08» 00, 2A. 00.00, U.00,64.60 t 27F 
1140 DATA 90, 98,00,88, 00, 00,10, tÛ.CC^CÔ, CO f CC, 20, 20,00, S2fl 
ïiSO DATA O0,40 < 64.6£,B0,G0,9D.&8,e0,00,0O,IO,9D.6E,b4,S36 
1160 DATA ^^D,6E.2Û,O0,ÔO > 6A,S0,eC.3A,3S^C.AE,9e,(XJ,^J 
11?0 DATA M ( 3F l BE ( E2,fi4,98,Di ( /D 1 3F t OO,00,3C t F3,B2.CB,7Il 
1160 DATA C4,ïl,F3 t 3Ç,OO,OO t C0,CO,C0 l 8Ô,4û t C0,a),C0,0Ô,7A4 
1190 DATA 00,10. 10, SD t 2fl, 14, 6fc, 20, 20,00*00. 44. 10. 90, 26 .2CÛ 
1200 DATA U,B&20.88, 00,00.00, 40,00,80,40,00,80. 00, 00,424 
1210 DATA 00,00, AF, F2, 0A,O5, R, 5F, 00,00,00, 0O,AF, FK DA.4AA 
1220 DATA 05, F2, 5F, 00,00, 00, 00, 84, OF, 06,04, 0M8. 00,00,240 
1230 DATA OO.OO.DS,OC,AA,S5 ( OC.EA j OO,00,00,00,40 t FF,B0.495 
1240 DATA 40, FF, 80, 00, 00,00, 28, 00, 00, 44, 00, 00,00, SL SU 2CD 
12S0 DATA OO,âA fc 0A,00,08 ( O4,0Ô.^,00t&5,00,55,ÔO,00,O0,J7C 
1260 DATA 00,00,00,00,00,00,00,00^00,00,00,00.00,00,00*000 
12/0 DATA 00,00,00,00,00,00,00,00,00,00,00,00*00,00,00,000 
1290 DATA 00, 00,00,00,00, 00, 00, 00,00,00,00,00, 00, 00, 00,000 
1290 DATA 00. 00,00, 00, 00*40, EA, 00, 00, 00. 00, 00, 05, bD, 80, 2DC 
1300 DATA 00,00.00,UO,b4,OL,^.uO,00,i>0,i)U,AF.AS*AA,iK; t JlU 
1310 DATA 00, 00,00, FA,F2,AA, 00, 00,00, tO, CC, 3E, 12, 00,00, 4£a 
1320 DATA 00,00,30*30,20,00,00.90, ?9 t C4,3E T fll t 3î>»88^4, 482 
1330 DATA 3E,90.30,94,6E*20.10*9D,C4 1 3£ t 95JÔ,00,ÔO fc 64,SeO 
1340 DATA 9O t 30.C4*2O,0O,OO ( 10,9C.B6,86«O0 t OO t lÛ,lO t â&.4AB 
1350 DATA 3D,98,10,O0 1 A4*10,64,6E,30,44,0O,15,i0.yH.90,3CC 
1360 DATA 98, 15, 00.1 4, 30, 6A,C0.3A, 34.00,51, 98,66, CO, 38,402 
1370 DATA 09,00,14, 30,82.90, B2, 34.00,15.00,09,79,80,15.549 
\m DATA 00,44*00,64,GE,20,44,00 ( JÛ,00,10,9Û,OOaO ( 00,23A 
1390 DATA 00,00,00.00,00,00,00,00*00, 00,00,00, 00, 00, 00,000 
1400 DATA ÔO l O0*tHJ,0O*00,{X),O0.0O,0O,OÛ,0O.00.O0 ( 00,00*OM 
1410 DATA 00,00,00.^.00,00,00,00,00,00,00,00,00,1)0,00,000 
1420 OATA 00,00, 00. 00, 00,00,40,CO, 00,00, 00. 00, 00, DS, 50*232 
1430 DATA 80,OO 1 O0,OO*00,AE,0E,AA*Û0,0O.OO,0O.FA,Fi.AA,47C 
1440 DATA 00, 00.00,10, CC, 3E, 82, 00, 00,00,00, 30, 30,^0,00,240 
1450 OATA 00.90. 79.C4.3E, 01,30,88.64, 3E.90 i 30.94.6E,20,632 
1460 DATA 10,SO.€4.3£,95,98,00,00,Ê4,90,30,04,20,00,00.4E4 
14?0 OATA 10*9C t fie, 98,00, 00, 10, 10, W, 30, 96,10,00, 44, 10, 3F0 
1480 DATA 64, 6£, 30,44,00* 15, 10, 98, 90, 98, 15, 00, H, 30, 6A.3EE 
1490 OATA CO, 3A*34, 00, 5t, 98, 68, CO. 38, 09, 00, 14,30,82,90,506 
1500 DATA B2,34.0Û, 15,40,09,79,06, 15, 00,44,40,64,6e, 60,520 
IStO OATA 44.00, 10,00, 10,90,00, 10,00,00,00,00,00,00,00,104 
1520 DATA 00,00,00,00, 00, 00, 00.00,00,00,00.00,00,00.00,000 
1530 DATA 00*00,00.00, 00, 00,00,00, 00, 00, 00,00. 00,00, 00,000 
3540 DATA 00, 00, 00. 00, 00. 00, 00,05, EA,4Û, FF, 60, 00. 40, AE, 460 
15S0 DATA 5D,55,OC,EA,00,40.00,ÛÊ,04,OF,4Ô,00,55,5A ( A7,3B4 
1560 DATA 0S,F2,5F,OO,55.5B,A5,0î J Jl,5F,ÛÔ,O0,40,C0,40,54Û 
1570 DATA 00,00*00.00,01, F9, 01,49.00,00,54,01, F9.Di.M,5FC 
1580 DATA 54,Ô0 i 01,5A,E2,A2,F2,0fi,0û,Ûî,8S % FL,F9.A5 t 81,66e 
1590 OATA ûO,01,CO,$A,52.4A,fll,00.6S 1 4A,03 T 49,42.0F*80,â64 
1600 DATA IA,A5,FC l S6,AD,FO,OA,Fl,F2,Û3.flL52,F3,A0,5A,B9E 
1610 OATA A5, 42,00*07^0, OA, 85,08, C0,C0.Bi.0F,80.Di. 81, 64A 
1620 DATA £8,00*49,81,00,01, 40,56^42,01, 00,54*00.81, S7Û 
1630 DATA 03, 60. 54. 00*00, 00, 01.49,00*00,00, 00, 00.01, 01,183 
1640 DATA OU, OO,(X1,OC,OO.OQ,OO,QO,ÛÛ ( 0O.OO, oo, OO,Ô0, 00,000 
1650 DATA 00,00,00,00,00*00,00,00,00,00,00,00,00.00,00,000 
1660 DATA 00,00*00, 00,00,00.00,00,00.00, 00, 00, 00,00,00,000 
1670 DATA 0O,40,80,OO,C0,00,00,0Û,D5,EA,4û,FF,lW,00,OO,4FE 
1680 DATA AE t 5Û.55,0C,AA,OO,00,0D.ÛE,Û4,0F,O8,OO,O0,5B,2A7 
1690 DATA A5, 05, F2, 04,00,00, 00, CQ, 40, CO. 80, 00,00, 01 ,F9,5AÛ 
1700 DATA SI, A9. 00, 00,54, 01.F9.&1.A9, 54,00, 01. 5A,E2.42, 515 
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1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 
1750 DATA 
1760 DATA 
1770 DATA 
1780 DATA 
1790 DATA 
1800 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
1840 DATA 
1850 DATA 
1860 DATA 
1870 DATA 
1880 DATA 
1890 DATA 
1900 DATA 
1910 DATA 
1920 DATA 
1930 DATA 
1940 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
1980 DATA 
1990 DATA 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2080 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 



F2.0B.00, 
81,00,85, 
0A.F1.F2, 
B5.0B.C0, 
40,56,FC, 
01.A9.00, 
00,00,00, 
00,00,00, 
00,00,00, 
00,00,00, 
00.00,00. 
00,00,00, 



00, c 



,00. 



00,00,00, 
00,00,00, 
00,00,00, 
00,00.00. 
00,00, 
30,30.30. 
30,CC,3F, 

ce. ce, ce. 

3F, 3F, 3F, 
3C.3C,3C, 
3C.79.F3, 
F3.F3.F3. 

3F, 3F, 3F, 
3F.3C.3F, 
CC, CC, CC, 
30,30,30, 
00.00,00, 
00.30.00, 
AA.AE.5D, 
55.AA.00, 
00,00,00, 
00.AA.04. 
AE.0D.A5, 
Fl,ri,F2, 



01.85.F1 
4A,03.A9, 
03,81,52, 
CO, 

42.01,00, 
00,00,00, 
00,00,00, 
00,00,00/ 
00,00,00, 
00,00,00,' 
00,00,00, 
00,00,00, 
00,00,00, 
00.00,00, 
00.00,00, 
00.00,00. 
00,00,00, 
00,00,00, 
30,30,30, 

CC, cc.ee, 
ce, cc.ee, 

3F. 3F, 3F, 
3C, 3C 3C 
F3.F3.F3. 
F3.F3.F3, 
3C.3C 3C, 
3F.3F.3F, 
CC,CC,CC, 
CC. CC.CC, 
30,30,30, 
00,00,00, 
00.00,00, 
0D,0E,5A, 
00,00.00, 
AA.AA.55, 
AE.FF.5D, 
A5.5D.00 



F9.A5,81,00. 
42,0F, 80. SA, 
F3.A0.5A.A5. 
80. 01, 81, E8, 
54.00.81,03, 
00,01,01,00,' 
00,00,00,00, 
00,00,00,00,- 
00.00,00,00, 
00.00,00,00, 
00,00,00,00, 
00,00,00,00, 
00,00,00,00, 
00,00,00,00, 
00,00.00,00, 
00,00,00,00, 
00,30,00,00, 
00,00,00,00, 
30,30,30.30. 

cc.ee, cc.ee, 

3F, 3C, 3F, 3F, 
3F. 3F. 3F. 3F. 
3C 3C 3C 3C 
F3.F3.F3.F3, 
F3,B6,3C,3C, 
3C.3C,3C,3C. 
3F, 3F. 3F, 3F, 
CC,CC, CC.CC, 
3F. CC, 30. 30, 
30.30,30,30, 
00.00,00.00, 
00.00,00,00, 
A5,F1,F2,5A, 
00.00,00,00, 
,00,AA,00,55, 
00.00,55,AE, 
,00.5D,5A.5A, 



01.C0.5A. 
A5,FC,56, 
42,C0,07. 
C0,A9,81 
1,54,00, 
1,00,00, 
00,00,00, 
00,00,00, 
00,00,00, 
00,00,00, 
00.00,00, 
00,00,00, 
00.00.00. 
00,00.00, 
00.00,00, 
00,00,00, 
00.00.00, 
00, 30.CC, 
30,30.30, 

CC, cc.ee, 

3F, 3F, 3F, 
3F.3C.B6, 
3C,3C,3C, 
F3.F3.F3, 
3C,3C,3C, 
3C,79,3C. 
3F.3F.3F. 
CC, CC.CC, 
,30.30,30, 
30,CC,30, 
00.00.00, 
00,00,00, 
,A5,0D,OE, 
00,00,00, 
,55,55,00, 
OE.OE.AA, 
,A7,AE,0Û, 



52.4A.64A 

AD, F0,6BB 
F0,0A,758 
00.01,675 
00,00,381 
00,00,OAC 
00,00,000 
00,00,000 
00,00,000 
00,00,000 
00,00,000 
00,00,000 
00,00,000 
00,00,000 
00.00.000 
00,00.000 
00,00.030 
30.30, 1SC 
30.30.2DO 
CC.CC, ACB 
3F,3F,6FC 
3C.3C.41F 
3C,3C,384 
F3,F3,DÛC 
3C,3C,8FF 
3F.3F.3C7 
3F.3F.3B1 
CC,CC,A4A 
30,30,723 
00.00.30C 
00.00.000 
00,55,085 

AE, 5D.6D7 
00,00,OFF 
AA.00.3FC 
00,00,481 
OO.AF.577 



,FO.AA.C 



F3.A5.5D, 
F2.OA.00. 
55.00,00, 
00,00, AA, 
55,00,00, 
00,00.55. 
AE.AE.FF, 
0E.5A.0E. 
F2.5F.AF, 
OC.0F.5O. 
5D.05.5A, 
0D.5A.F2. 
0F.0C.A4, 
5D,0E,FF, 
AE.AA.AA, 
00.00,00, 
00,00,00, 
00,00,00. 
00,00,55, 
00.AF.A5. 



OO.OO.AE, 
00,AE.5A. 
, AE, FF. OD, 
FF, 55. 00, 
,00,00,00, 
00,00,55, 
,50.55,00. 
FF, AA.5A, 
.04.5A.F2, 
0D.F1.F3, 
,F1,F1,F0. 
.A5.F0.0E, 
,0F. 50,00, 
,55.00,AA, 
OO.AA.OO, 
00.00,00, 
00,00,00, 
00.00.00, 
50,00,00, 
AA.OO.OO, 



5A.F3.A5.AA, 
A5,A5.08,00. 
5D. 55. 00. 55. 
00.00.00,00. 
,00.00.00,00, 
00,AA,FF,55, 
,FF.5D,0C,0D, 
0F.A5.F1.0E, 
;,F1.A5,0D.F1, 
,0F,F5,AE.51, 
'.5F.08.AE.0D, 
55.AF.F1.A5. 
OO.AE.OF.OF, 
AE.AE.0D.08, 
1,00.55.00.00, 
,00.00,00,00, 
00.00,00,00, 
.00.00,00,00, 
00,00, 00, AE, 
,00, 00, FA, F2, 



OO.OO.AF, 
55.5D.0D, 
55.0C.AE, 
OO.AA.AA, 
00,00,00, 
AE.AA.AA, 
0C,AA,55, 
OC, 55. 59, 
05.0C.F1, 
5A.F3.F3, 
F0.F2.A7 
A4.0F.5D, 
OC.AA.AA, 
00.00,00, 
00,00.00 
00,00,00, 
,00,00,00, 
OO.AA.OO, 
,OE.AA.OO, 
AA.OO.OO. 



F1.F0.7CF 
0E.0E.431 
AA.AA.579 
00.00,352 
00,00,055 
55.00.4FF 
OD.0C.5A6 
A4.5A.5E4 
F3.F2.8CB 
F0.0E.79D 
0C,AA,7EF 
AA.04.754 
04.55,3B0 
55,55.484 
00.00.301 
,00.00.000 
00,00,000 
OO.OO.OAA 
00.00.218 
00.00.494 



2290 DATA 40. CO 
2300 DATA CA.8E 
2310 DATA AA, 04 
2320 DATA E7.08 
2330 DATA 00,40 
2340 DATA 04.00 
2350 DATA 00, 8E 
2360 DATA 04, 8E 
2370 DATA 00,00 
2380 DATA 00,00 
2390 DATA 00,00 
2400 DATA 00.00 
2410 DATA 00,00 
2420 DATA 00,40 
2430 DATA CA,CA 
2440 DATA D5,AA 
2450 DATA E7.E7 
2460 DATA 5D.00 
2470 DATA 00.04 
2480 DATA 51.00 
2490 DATA 00,04 
2500 DATA 00,00 
2510 DATA 6E.3E 
2520 DATA 93,63 
2530 DATA 00,00 
2540 DATA 00,00 
2550 DATA B3.82 
2560 DATA 73,33 
2570 DATA 82,33 
2580 DATA C3,00 
2590 DATA 00,00 
2600 DATA 00.00 
2610 DATA 00.73 
2620 DATA 63.82 
2630 DATA 63. C3 
2640 DATA 00,00 
2650 DATA 00,00 
2660 DATA 00,00 
2670 DATA 33,33 
2680 DATA 11,33 
2690 DATA 00,00 
2700 DATA 00,00 
2710 DATA 00,00 
2720 DATA 00,00 
2730 DATA CC.CC 
2740 DATA 3C,2A 
2750 DATA 6A.64 
2760 DATA E2.2A 
2770 DATA 6E.79 
2780 DATA 68.88 
2790 DATA 60, CO 
2800 DATA 3F. 88 
2810 DATA 00,00 
2820 DATA 00.00, 
2830 DATA 00.01 
2840 DATA 56, FC, 
2850 DATA 03, D4 
2860 DATA 00.56, 



,00,00.00, 
AA, 00,00. 
00.55.FF, 
AE,DB,8E, 
,A£,EA,CO, 
EA.EA, AA, 
,8E,8A,51, 
00.00,00, 
,00,00,00, 
,00,00.00, 
,00.00.00, 
00,00,AA, 
,AE,OE,AA, 
CO.00,00, 
,8E.AA,00. 
04,00,55. 
,08.AE,DB, 
40,AE,EA, 
00, EA.EA, 
8E,8E,8A, 
,8E.00,00, 
00.00,00, 
,3D,79,B6, 
72,B1,F1, 
,00.00.00. 
00,00,00, 
, 00,11, F3, 
33,82,72, 
33,63,82, 
11.63.82, 
,00.00.00. 
00,00,00, 
33.63,00. 
33.33.63. 
, 00.41, C3. 
00,00,00, 
,00,00,00. 
00,F1,E1, 
63,33,33, 
63,82,11, 
00.00,00, 
00.00.00. 
00.00,00. 
00.00.00. 
CC.CC, 20, 

cû,6c,ec. 

,6Û,6A,88, 
68.6E.79. 
,6C,6A,28. 
C8.6A.64, 
CO.60.80, 
64, CC.CC, 
00,00,00. 
00,00.00. 
FC.81.02, 
47,A3,03, 
F9.01.42. 
A9. 00.00. 



),4D.E2,48, 
i,5D.F7,5D, 
),F3.FF.FF, 
;,DB,8E,AA, 
;,EA,00,55, 
1.00.45,00, 
),00,00,E7, 
1,00,55, 5D, 
),00,00,00, 
1,00,00,00, 
1,00,00,00, 
1,00,00,00, 
1,00,00,00, 
).00,4D,E2, 
),55,5D,F7, 
\FB.F3,FF, 
Ï.0C,DB,8E, 
I.AE.EA.OO, 
\, 04. 00, 45, 
,00.00.00, 
), 00, 00, 55, 
1,00,00,00, 
;.3D,9D,6E. 
!,72,B1,93, 
l.OO.OO.OO, 
1,00,00,00, 
!,00,50.B1, 
1,33,82,72, 
1.33,63,82, 
),00.C3.82, 
1.00,00,00, 
1,00,00.00, 
1,33,63,82, 
!.33.33,C3, 
!.00,00.C3, 
1,00,00,00. 
1,00,00,00, 
l,50,B3,33, 
1,63,33,33, 
l,C3,B2,00. 
1,00,00.00, 
1,00.00,00, 
1,00,00,00, 
1,00,00,10, 
1, 3F. 3F, 3F, 
1,60,80,60, 
1.68,9D,C8, 
),6A,28,E2, 
l.E2.3E,6A, 
l,6A, 88,60, 
:,3C.F3,B6, 
:.CC.20.10. 
1.00.00,00, 
1.00.00,00, 
1,42,47. A3, 
l.FC,DE,81. 
,FC.00.01 
.02.00.00. 



,E7.08,00, 
00.00,04, 
,00.4D.E7, 
55.4D.5D, 
,55,C0.C0, 
5D.5D.08, 
,E7,A2,00, 
00,00,00, 
,00.00.00, 
00,00,00, 
,00,00,00, 
00,55,50, 
,FA,F2,AA, 
48,E7,0B, 
,5D,00.00, 
FF,00,4D, 
,AA.55,4D, 
55.55,C0, 
00.5D.5D, 
E7,E7,A2, 
5D.00.00, 
00,10,20, 
64.98.10, 
63,41.82, 
,00.00,00, 
00,00,00, 
63.00.51, 
33,63,82, 
11,33,C3, 
00.00,00, 
00,00,00, 
F2.22,00, 
72,33,33, 
82,33.33, 
00.00,00, 
00,00,00, 
00.00.00, 
82,50,B3. 
33,C3,33, 
63,C3,00, 
00,00,00, 
00,00,00. 
00.00,00, 
30,30.30, 
3F.88.3E, 

ca,co,co, 

68.68.6A, 
CO,CO.CO, 
E2.2A.C8, 
C8,C0,C0, 
3C.2A. 
30.30,30. 
00.00.00, 
03,00,00, 
01.42.FC, 
03.FC.A9. 
42.03.00, 
00.00.00/ 



00.AE.CA.4DE 
OÛ,FF,D5,5E0 
,E7.CF.E7,9BF 
FF,4D,5D,7CD 
,D5.55,00,784 
45,00,51,423 
,00,00,00,467 
00,00,00,144 
00,00,00,000 
00,00,00,000 
,00,00,00,000 
00, 00,00, 15C 
00,00.00,3FC 
00, 00, AE, 414 
04.00.FF.5D5 
E7,E7,CF,9AD 
5D,FF,4D,857 
C0,D5,55,7E1 
08,45,00,3D2 
00,00,00,488 
00,00,00,144 
64,98,9D,1C9 
,20,41,82,580 
00,00,00,6D8 
00.00.00,000 
00.00,00,000 
33.63.00.4A6 
33,33,63,508 
00.11,33,463 
00.00.00.2FE 
00,00,00,000 
50,F3,63,2BA 
82,33,33,454 
C3.00. 11,515 
00,00,00,36F 
00,00,00,000 
00,00,00,000 
33,82,33,575 
33,33,C3,47D 
00,00,00,3D8 
00,00.00.000 
00,00,00,000 
00,00,00,000 
30,00,64,134 
3C.F3.B6.794 
Câ,2ô,CS,83£ 
E2.3E.6A.799 
C0,A2,68,845 
68,9D,C8,77A 
C8,20.C0,828 
3F.3F.3F.6A3 
30,00,00,54B 

00. 00.00.000 

01, DB,02,0E1 
DE, 53, E8, 604 
81,DE.56,8A0 
47,A3,00,4C0 
00,00.00.102 
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•DANS TOUS LES KIOSQUES 




DossiçpJ 



IL COURT, IL COURT, 
LE FANZINE 





Hurricane News est différent (NDLR : ils disent tous ça !). peut-être pas épais pour un premier numéro mais la 
volonté y est. Ce super, génial, extra journal spécial AMSTRAD 6128. 664. 464 est édité sur un 6128 Qwerty + 
DMP 2000 avec un logiciel de PAO AMX Pagemaker. 

Voici mon équipe rédactionnelle : Directeur : BRUNNER Nicolas. 19 ans (bientôt 20 ans), je suis en Bac pro. 
HURRICANE : c'est moi en journaliste. Doc Spooler : encore moi mais en pro de la micro. Timbre poste : devi- 
nez qui ? 

Jên suis encore aux balbutiements car ma naissance est toute fraîche, le 14 avril. J'ai essayé de boucler 
mon édito (ça c'est le dirlo qui cause) en mélangeant AMSTRAD et école ! Pour ce qui est des tests, je les 
possédons mon journal. Pour le mois d'avril c'est OPERATION WOLF. Il y a un dossier du mois, pendant 2 mois 
(Avril-Mai) ce sera le foot et le micro. Pour ce qui est de la bidouille j'ai fait fort en commençant par raccor- 
der 2 enceintes à mon CPC et sans danger. C'est ça HURRICANE NEWS. 
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LE RETOUR DU STRAD VIVANT 



Alors là. je m'interroge. Pourquoi le mot fanzine est-il employé au téminin par certains auteurs de fanzines 
justement. Pourtant il me semble que fanzine vient de magazine et que magazine est au masculin. 
Sur la seule et unique page du Retour du... il y a beaucoup (trop?) de dessins tirés de Stop Press. La DMP 
2000 et le 6128 sont parfaits mais Hervé trouve que le logiciel AMX est bien lent à imprimer les pages. Enfin 
comme les autres Freeware (les vrais) le Retour du Strad vivant est gratuit (2.20 F en timbres pour les frais de 
port quand même). 
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Son sous-titre : «La qualité. L'innovation. L'humour.», ce qui évoque irrésistiblement quelque chose mais je 
n'arrive pas à me rappeler exactement quoi. Enfin le principal est que les auteurs reconnaissent qu' Amstar 
& CPC est la meilleure revue sur Amstrad (vous passerez me voir dans mon bureau les petits gars : NDLR). Titi. 
Bombax. Bug's Bunny et ID se défoulent au cours des 4 pages double face double densité du Caïman. Les 
présentations sont faites avec le premier numéro et le matériel utilisé est des plus classiques : AMX Page 
Maker. DMP 2160 et CPC 6128. Si je puis me permettre de donner mon avis je trouve que l'équilibre entre 
dessins et textes est plutôt bien réalisé ; en revanche, pas la peine d'utiliser autant de polices de caractères 
ça lasse. A signaler un concours dans ce numéro 1 (trop tard pour y participer, mais la prochaine fois. ..). 
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STRAD 



Comme on n'est pas sectaire chez les fanzines, il est possible de parler de bien d'autres sujets que celui de 
l'informatique (il faut tout de même un minimum de textes concernant le CPC). Cette condition étant rem- 
plie, on peut passer aux choses sérieuses. Le Strad est tout petit de par ses dimensions et le numéro 1 est plu- 
tôt informel (pourquoi n'ai-je reçu qu'une page, je sens le gaz?). Enfin, c'est la page musique que vous 
pourrez voir sur cette page en attendant de recevoir le numéro entier (il y en a qui sont favorisés). Le Strad 
est réalisé sur un 6128 avec OCP Art Studio (ben oui. à quoi ça sert les recopies d' écran?) et imprimé par 
une vaillante Citizen 1 20D. 

Et voilà ce que c'est ; on cause, on cause et puis on oublie de me mettre son prénom sur la lettre. Tant pis 
pour toi. illustre inconnu, t'auras pas ton nom dans le journal. 




Ce Fanz est traité sur une 21 60 avec un 61 28 et le logiciel AMX, ce n° 0 comporte que 3 pages mais les "vrais" 
n° comporteront 10-15 pages. Nous sommes pour l'instant 5 à la rédaction. Blood. moi le chef quoi ! Duffy 
Fanz qui traite des Ducks euh ! Fanzs ! Druffy et Thomaswohe. la musique sur ordinateur, l'aventurier jeu sur 
CPC. et Gogol le Mong euh... jeu sur Amiga. Normalement on devrait être, en moyenne. lOmais... Saviez- 
vous que AmstTad Monthly change, encore en I AM-MAG, que de changements. 
L'abonnement sera de 35 F et le prix d'un n° de 5.90 F (3.70 + 2.20 F). 

Coordination de la rédaction et rédacteur de la rubrique Amstra d CPC : David DESQUIENS- 168, rue Ray- 
mond Derain - 59700 MARCQ-EN-BARŒUL 
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Ne vous est-il jamais 
venu a l'idée de vouloir 
convertir un dessin d'un 

mode dans un autre ? 
C'est certes possible avec 
certains programmes de 
dessin, mais le résultat 

est décevant car le 
programme se contente 
de faire des pixels 
plus grands ! 



iu moE z.nm 'tbansnod chargeuî • 

20 KEfflWV MFFF.HOÛ 

30 KM I IA000 Tfl U216 STEP 8 

*0 SÛH 0:F08 J 0 TU 7 

50 km. ** h=i*wr*M< poke io.a ; sok 
6C MtlT J 

70 BEAD AI:«-VALI'l'i«|).tF A4 >S0H THEW 
.1-0© ELSÏ PI1KT "LIGJtf-a^Oif." 
60 ILm0:NEIT I 
90 SAVE •TBAItS'.B.fcAOOÛ.tyii 
100 DATA 00 04.04. 5*. 06.0C. 0C. 5C. 008 
110 DATA O8,0r.OC.SC.A6.AC.AC.FC.376 
120 DATA 40- 44. 50. 01, 48, 4C. 68, 09. ICA 
130 DATA 4fl,4C,S8.09,E8,EC.F8,Aâ,46A 
140 DATA 40. 50. 44. 0|. 48. SB. 4C. 09. IC* 
1S0 DATA 48.48. 4C.QB.E6.F8.EC. Ai». 46A 
180 HATA 10.14.14.41, I8.1C.1C. 49. IU 
1?0 OATA lS.H .tC.*a,B8.BC.BC.E6.38i 
100 DATA M,a4,*,R8t>.âC.8C.J>C.4M 

3ti 




SOU* A 

PR1HT 'EfiBEUB LIGNE" 

l'iO OATA Aû.A«,A«,F4,ùi. 06, 06.56, 340 
200 DATA C0.C4, W.8I,CB. CC, D6.8a.5CA 
?10 DATA E0,E4.F0.A1.4i.46.52.Û3,432 
220 MU C0.OO.C4.ei,C8.06,CC,89,5CA 

230 ùata e0.f0.e4.a1, 42. 52.46.03, 432 
240 data 9q.94,m,ci,98,9C.9c,c9,si2 

250 DATA B0.B4.B4. El. 12, 16,16.43,374 
260 DATA 80,84.84,04. AG.A4.A4, F*, 538 
27Û DATA 88.8C, 6C.DC.Û2. 06,06.58, 2E0 
280 OATA CO,C4.DO.81,E0,E4.F0.Al,62A 
290 DATA C8.CC.06.a9. 42.46.52.03.302 



Vûlable pour 
il CPC 464 
(8 CPC 664 
II CPC 6128 



C est pourquoi j'ai mis au ppjhf 
îransmod. H permet de con- 
vertir le mode 2 en mode 1 , 
et le mode 1 en mode 0, Mais dans 
i© nouveau mode tes ptxeis sont 2 fols 
plus grands que dans ) ancien donc 
I contient 2 pixels de l'ancien mode. 
Pour résoudre ce problème, le pro- 
gramme s occupe de calculer les 
couleurs Intermédiaires. 



FONCTIONNEMENT 
DU PROGRAMME 

• Choix du mode 

- mode 2 vers mode 1 ou 
-mode 1 vers mode û 

• Catalogue puis demande du nom 
de l'Image, 

- S'il * agit d une mauvaise disquette, 
on tape (RETUtfNj directement 

• Demande des couleurs, 

• Conversion de limage dans le mode 

CHOISI 

• Affichage des nouvelles couleurs, 

• Demande sauvegarde nouvelle 
Image 

• Demande conversion autre image 



Olivier BRUNEI 



300 DATA e0 t Dû # C4,8i,Eû,F0,t4,Al.62A 
310 DATA C8,06,CC t 89, 42<&2, 46, 03,302 
320 DATA 90,94, 34,CLB0,B4,B4,£h572 
3S0 UA1A ^>9U&,CU,lZ.ib.lfa.4i.,i]A 
340 OATA 20,24,24, 74, 2Ô,2C,2C>7C, L08 
350 DATA 28,2C,2C,7C,82,86,86,D6,360 
360 DATA 60,64, ?0,2l, 66.6C. 78,/^, -a 
370 DATA 68,6C.76«29,C2,C6,D2 f 63 ( 452 
380 DATA 60, 70,64,21,68, 78, 6C k 2â,2CA 
390 DATA 66> 78, 6C, 29, C2.D2.CG. 63.452 
400 DATA to^&M.Xt.*,XM.m 



410 DATA 36,3C,3C.69.92.96.96.C3,39A 
420 DATA 00, 10, 10,01, 20,30,30,21. 0C2 
430 DATA 20,30.30, 21,02. 12, 12. 03, OCA 
440 DATA 40,50.50,41,60,70. 70.61. 2C2 

450 DATA 60, 70, 70.61,42.52,52,43, 2CA 
460 DATA 40,50,50,41,60, 70. 70,61, 2C2 
470 DATA 60, 70, 70,61, 42,52, 52, 43.2CA 
460 DATA 04, 14. U, 05, 24. 34, 34, 25, ÛE2 
490 DATA 24,34,34,25,06, 16.16,07. 0£A 
500 DATA 80.90,90.81, A0,B0.B0,Ai,4C2 
510 DATA A0,B0,B0,Al l 62,92,92,63,4CA 
520 DATA C0.D0.D0,Ct,EÛ,F0,F0.El,6C2 
530 DATA E0,F0,F0,Ei.C2,D2,D2,C3.6CA 
540 DATA C0.Dû % DO,Ct,EÛ > FÛ,FÛ,El,6C2 
550 DATA EO,FO.F0,El.C2,D2,D2,C3,6CA 
560 DATA 84.94.94,8S.A4.B4,B4,A^4E.: 
570 DATA A4,B4,B4,A5,B6,96,96,B7,4EA 
500 DATA 80,90, 90,81, AO,BO,BO, Al, 4C2 



590 DATA A0,BO.BO,Al,82.92.92,83,4CA 
600 DATA CÛ.DO,O0.Ct,EO,FO.F0,Ei,6C2 
610 DATA E0.F0.F0.E1,C2.D2.D2,C3.6CA 
620 DATA CO,ÛO,D0.Ct,EO,F0.F0.El,6C2 
630 DATA E0.F0,F0.El,C2,D2.D2.C3.6CA 
640 DATA 84,94,94,85.A4,B4,B4.A5,4E2 
650 DATA A4,B4,B4.A5,86,96.96,87,4EA 
660 DATA 06.18,18,09,28,36.36,29.102 
670 DATA 28.38,38.29,OA,1A,1A,06,10A 
680 DATA 48.58,58.49,68,78.78,69,302 
690 DATA 68.78,78 f 69,4A,5A.5A,4B,30A 
700 DATA 46,58.58,49.68,78,78.69,302 
710 DATA 68,78,78.6Q,4A,5A.5A,4B,30A 
720 DATA (K.1C, 1C, 00. 2C,3C,3<:, 20,122 
7.30 DATA 2C.3C,3C,2D.0E,lE,lE.0F,t2A 
740 DATA 2l.O0.C0.Û1.0O,A0.7E,4F.24F 
750 DATA 0A,77,23,3E.00,BC,20,F6,2B4 
760 DATA C9, 00,00. 00,00, 00, 00,00,0C9 



GAGNER AU LOTO 

un rêve qui peut devenir 
realite avec 

LOTO - MATIC 

le programme qui vous révèle 
tout ce que vous devez savoir 
pour 

• trouver facilement les numéros 
qui ont le plus de chance de sortir 

• établir scientifiquement 
les grilles les plus performantes 

grâce au* îesis du Lotoscope 

• contrôler sans peine 
les tesultats de vos jeux 
Fditions écran et imprimante 

Documentation détaillée 

♦ CADEAU contre 4 timbres 
INFORM ATIC Applications 

B P 78 67800 BISCHMEIM 
Tel 8RJ3 S8 85 



10 < imMMfMtl .»»•,•,,,,.,,•, ,, 

20 ' • • 

30 ' « TRANSHÛD • 

♦0 ' • I 

50 ' • OLIVIER BRUNEI 1989 « 

60 ' • • 

70 ' iimniiiiii ,i, ,«,,«,, mm 

90 HEN0R* l.9FFF:U)AD "TRANSMAOOO 

90 IIIIIIIIIIHMIIIIIMIIIIHIIIIH 

100 '« TRANSN0D BOUCLE PRINCIPALE • 
1 10 t. Ml MlllimilHIIH 

120 MODE UINU 0.0: INK 1.18:B0RDEJ O.'iNk 2.6 
130 LOCATE 16, 2: PRINT "TRANSMOD" 
140 LOCATE l,4:PRINT «par 0. Brunet" 
Vr,ù PEN 2:L0CATE 10, J0:P8INT "1. Mode 2 vers Mode 1" 
160 LOCATE 10,12:PRINT "2. «ode 1 vers Mode C" 
170 LOCATE 10.15.PRINT «VOTRE CHOU :V 
180 AI-UPFERIilNKEYH:IF AIO'1" A*L M • . * 2 * THE* 180 
190 PRINT Al; 
200 «ODE 2:PEN 1 
210 CAT 

220 INPUT 'No. de dure a châtier :V IlUt 
230 IF mt-" THEN 200 
240 IF U£NiAti;12 THEM 200 

250 LOCATE t.20:IHPUT «Couleur 0 <Font) :".IN<0> 
260 UICATE 1.21: INPUT "Couleur l 
"1" THEN C0L=2:GÛT0 290 

2/0 LOCATE 1.22: INPUT "Couleur 2 r'.WMl 
280 LOCATE 1.23: IMPOT "Couleur 3 :". INl3i:CÛL=4 

290 FOR teg T0 COL-I 
300 J(IM) = INTUH(l)/9) 
310 R(l.|)MNT((IN(ll-J.|4l)i9)/3i 
:120 B(lMJ=IMT((IN(l)-RihlM3-J(IMii9)l 
330 INK I. INI 11 
340 NEIT 

350 IF Al="l" THEN HODE 2 ELSE HODE l 
360 CALL IBC06.VCO:LÛAO IHAI.tCOOO 
370 CALL fcBBie 
3Ô0 CALL 4BC06.t40:HÛDE I 



;LA 
7LB 
>LC 
>LÙ 
>LE 
>Lf 
■LG 
>CU 
)U 

m 

>K 
>KV 
>BB 
,>HA 
>2U 
>TH 

m 

;0M 

m 

>RH 
70F 
)PF 
/TH 
>VE 

:".INU>.IF A4- >0B 

)TJ 
>AQ 

m 

>RC 
'AA 
>H| 
>VG 
>EC 
>BB 
•'AK 
>HF 



390 PEN 1:PRINT "C'EST BON ?"| >YÏ 
400 5l=UPPER»(INKEi»i:IF S»O"0" AND S»<>"N" THEN 400 FW 

410 IF SM"N" THEN GOTO 200 :TY 
420 1F A*="l" THEN HODE 1 :P0K£ IA205.1A1 ELSE MODE Û:P0 )JP 
KE U20S.1AÛ 

430 CAlL I1BCÛ6.I1CO >LU 

440 CALL 4A200 >JH 

450 ON VALIAII G0SUB 590.630 'VU 

460 CALL IBB18 >HF 
470 CALL UC06.140 

480 MODE 2 >JB 

490 INK 1.0: INK 0.26 >Hu 

500 IF Al="l" THEN FOR 1*0 T0 2:PRINT USING "INK I :";l >W 
;:PRINT IKUcNEIT 

510 IF A»="2" THEN FOR 1=0 T0 9:PRINT USING "INK II :"; >1B 
l;:PRINT IKU):NEIT 

520 PRINT >NK 



530 PRINT "SAUVEGARDE 0E L'ECRAN 



)FI 



540 AI=0PPER4(INKEri>:IF Al<>"0" AND AIO'N" THEN 540 E >KL 
LSE PRINT A» 

550 IF AI---0" THEM INPUT "NOM :";A$:SAVE At.B.tCOOO.M >IU 

000 

',60 PRlWT "AUTRE IMAGE l*ï ,CP 

570 AI-UPPERKINKEYIr.lr AIO'O" AND A»0"N" THEN 570 E >KT 
LSE PRINT A» 

560 IF A$="0" THEN CALL *BB16:G0T0 120 ELSE END >HI 
590 C0L=INT(IB(l)»B(2li/2MlNT.(rU)»r(2»'/2)i3HNT((J( )NH 
]i»J<2>l/2>#9 

600 IK(O>--|N(0>:lKUMC0l.:IK<2.>--INUi >EM 
610 FOR I--0 TO 2: INK I.IK(ll:NEIT /AN 
B2B KKTURN .ZD 
630 RESTORE 690: FOR ENC=0 TO 9 >II 
640 REAO Il.l2:ll--|1M:I2=I2'I m 
650 CûL:|NTI<B(ll>*B(l2>>/2)«lNT(<r(llMr<l2>>/2>»3«INT >TU 
UJUl>»J<l2ii72>i8 

660 IK(ENC)--COL:INK EMC. COL ,IA 
670 NEXT ENC >QF 
680 RETURN , U 
690 DATA 0.0.0.1.0.2.0.3.1,1.1.2.1,3.2,2.2,3,3.3 )MH 
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CAO SUR CPC 

INVERSION DES FACETTES 
ORIENTATION AUTOMATIQUE 
DES FACETTES 



Vingt-cinquième partie 



REMARQUE: 



Pour rBcevoir les logiciel de 
J.P. PETIT, expédiez à l'adresse ci- 
après : 

Jean-Pierre PETIT, 

Chemin de la Montagnêre, 

84 120 Perfuls, Vauciuse. 

1 - Logiciel AMSTRAD-3D (images 
fil de fer) : 90 F. 

2 - Livre CAO sur AMSTRAD (260 pa- 
ges) : 200F. L'ensemble (1+2) : 
250 F. 

3 -Logiciel SUPER-AMSTRAD-3D 
(parties cachées éliminées) : 250 F. 

4 - Objets précalculés pour Super 
AmstradSD :80F. (3+4) : 300 F 

5 - Ensemble (2+3+4) ; 500 F (plus 
que 30 livres disponibles). 

Grâce à l'obligeance de messieurs 
VlbertetVERFAY, AMSTRAD-3D et 
SUPER-AMSTRAD-3D sont disponi- 
bles sur 464, Remarque : nous 
n'avons pas de versions sur 664 dis- 
ponibles. 



Lorsque j'ai voulu il y a 
quelques années créer 
un objet en forme de 
dodécaèdre, cette espèce 
de boîte à douze facettes 
pentagonales, je n'ai 
pas trouvé un livre de 
mathématiques avec 
les coordonnées des 
sommets. Je m'étais 
donc débrouillé en 
jouant sur les symétries 
et les rotations. J'avais 
fabriqué tant bien que 
mal une facette, puis je 
l'avais fait tourner, etc. 



Je m'étais trompé dans les orien- 
tations des facettes, ce qui ap- 
parut dès que je fis une image 
avec élimination des facettes non 
vues à l'aide de la section VOIR. J'ai 
d'abord obtenu une image fil de fer 
où ce type d'erreur ne pouvait appa- 
raître. (Pour visualiser le résultat de ce 
travail, au point de vue du fichier : voir 
tableau des points de l'objet DODE- 
CA1). 




Figurel -Image fil de fer de DODECA1. 
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Mais tout s'est gâté lorsque j'ai 
voulu éliminer les parties cachées : 




Figure 2 - Facettes «non vues» éliminées. 
Visualisation des erreurs d'orientation. 



Oubli de facettes, mention de fa- 
cettes qui ne devraient pas figurer, il 
est clair que les orientations étaient 
mauvaises. 

J'Incite d'abord le lecteur à ren- 
trer ce fichier (erroné) à la main, se- 
lon : 

RUN-MODl 

a - Créer un objet 

a - Créer chaîne par chaîne 

Type d'objet : 

d - Solide 

a - Saisie clavier 

SAISIE DE CHAINES AU CLAVIER 

Nombre de segments ? 5 

Arêtes virtuelles en début de chaîne 

Leur nombre ? 0 

Point numéro 1 

XT=? - 0.303 

YT=? 0 .934 

ZT=?- 0.187 

Point numéro 2 

etc.... 

J'ai voulu corriger ce fichier à la 
main en essayant de réfléchir aux err- 
eurs commises mais le remède fut pire 
que le mal. J'ai donc du demander 
à l'ordinateur de faire lui-même cette 
mise en ordre en créant une routine 
ad hoc. Et cela sera le sujet de la pré- 
sente leçon. Suivez-la avec attention, 
c'est une des plus Intéressantes. En tout 
cas, une fols cette routine crééej'étais 
débarrassé séance tenante de ce pé- 
nible problème de l'orientation des fa- 
cettes pour les solides, les polyèdres 
convexes. 



LA SOLUTION 

La solution va consister à créer un 
système, sous forme de sous-program- 
me, qui mette ces fichues facettes en 
ordre automatlauement. Avant d'en- 
visager cela , nous allons traiter un pro- 
blème préalable, celui de l'Inversion 
des facettes d'un objet. 

Nous savons que sur ce que nous 
appelons un SOLIDE, c'est-à-dire un 
polyèdre convexe, les facettes sont 
orientées selon la règle du tire-bou- 
chon. 




Figure 3 - Orientation des facettes selon la 
règle du tire-bouchon. 




Figure 5 • Changement d'orientation, 
résultat d'une symétrie par rapport 



Lorsqu'on parcourt la facette (In- 
dice J sur la chaîne) et qu'on assimile 
cette rotation au mouvement de vis- 
sage du manche d'un tire-bouchon, 
celui-ci doit pointer vers l'extérieur de 
l'objet pour toutes les facettes sans 
exception. 

SI nous inversons les facettes, ses 
sens seront comme ceci. 




Figure 4 - Facettes «non vues» éliminées 
après inversion de l'objet. 



On pourrait se demander quel in- 
térêt peut présenter une telle option. 
En effet si je prends un objet et que 
Je le traite de cette façon, lorsque je 
voudrai éliminer les facettes non vues 
l'ordinateur me présentera les faces 
internes et non externes ! 

Dans la suite de notre travail nous 
étudierons, comme dans AMSTRAD- 
3D, la façon de manipuler les objets. 
L'une d'elles consiste à prendre le sy- 
métrique de l'objet par rapport à un 
plan. 



C'est une opération tout à fait utile 
et souhaitable mais, si vous y regar- 
dez de près, elle Inverse les facettes ! 
Il faut donc aussitôt créer un sous-pro- 
gramme de remise en ordre de cet 
objet, sinon il deviendra inutilisable. 

Une petite remarque au passage, 
destinée à Illustrer le peu de perfor- 
mance du cerveau humain au sujet 
de ces symétries (ce qui nous fait nous 
perdre si aisément dans les galeries 
des glaces des fêtes foraines) : Une 
symétrie par rapport à un point Inverse- 
t-elle les facettes ? Réponse dans la 
leçon consacrée à ces symétries. 
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INVERSER UN OBJET 

Comme la manipulation d'objets 
se situera dans la section MOD2, c'est 
dans celle-ci que l'on placera cet utili- 
taire et l'action clavier : n-lnverser ob- 
jet ou bloc entraînera un chaînage 
en direction de MOD2. Ce qui corres- 
pond à la ligne, dans MOD1 : 

217 IF C = 14 THEN CHAIN»MOD2 

n est en effet la quatorzième let- 
tre de l'alphabet et vous savez que 
notre programme de saisie de carac- 
tères 65000 renvoie, dans le registre 
C, le rang alphabétique de la lettre. 

Je vous renvoie donc au listing de 
MOD2. L'exécution de la tâche cor- 
respond à la ligne : 

224 IF C = 1 4 THEN GOSUB 1 000 : GOTO 
10 

L'Inversion de facette est donc pri- 
se en charge dans le sous-programme 
1 000. Le lecteur trouvera dans ce sous- 
programme des appels de sous-pro- 
grammes Inexistants, liés à des valeurs 
de flags. Le flag FB se réfère par exem- 
ple au traitement par blocs d'objets. 
C'est une chose que nous n'avons pas 
encore définie. Dans l'utilisation que 
nous faisons de MOD2 aujourd'hui le 
traitement par blocs sera négligé, 
donc ce flag FB sera positionné à zéro 
lors du questionnement : 

INVERSER 

a - Objet 
b-Bloc 

Votre choix : 
et qui correspond à la ligne 1000. Si 
le choix se porte sur la sous-optlon a 
le programme renverra à la ligne 
30000. 

Une parenthèse sur le programme 
30000 : 

Ce sous-programme 30000 sera pré- 
sent dans à peu près toutes les sec- 
tions de la chaîne de traitement SU- 
PER-AMSTRAD-3D. On y fera référence 
à chaque fols qu'on se proposera d' 
Intervenir sur un objet. SI vous détaillez 
ce sous-programme vous verrez qu'il 
traite tous les cas possibles. Si L = - 1 



c'est qu'il n'y a pas d'objet en mé- 
moire. Vous n'en avez pas chargé ou 
créé. 

C'est ce qui se passera si vous fai- 
tes : 

• RUN-MOD1 

n - Inverser objet ou bloc. 
Le sous-programme enverra alors à la 
ligne 5005 (chargement d'objet) , et 
vous verrez apparaître : 

Chargez l'objet (disquette objet I...) 
Nom de l'objet : ? 

qui vous rappellera à l'ordre. 

SI vous avez chargé un objet selon la 

procédure : 

• RUN-MOD1 

d - Charger objet 
Nom de l'objet ? DODECA1 
n - Inverser objet ou bloc 
a - Objet 

L'ordinateur vous demandera : 
Objet résident DODECA1 
on garde ? 



Ceci afin de vous fournir une véri- 
fication de ce que vous vous propo- 
sez de manipuler. 

Enfin si vous avez créé un objet que 
vous n'avez pas encore stocké, donc 
qui ne possède pas encore de nom, 
vous verrez apparaître : 

Objet sans nom présent en mémoire 
On garde ? 

Tout cela grâce à ce sous-pro- 
gramme 30000. Fin de cette paren- 
thèse. 

En 1010 vous avez un autre gad- 
get fort utile qui permet indifférem- 
ment de travailler sur les objets ou sur 
les blocs. Les facettes sont des ensem- 
bles de points chaînés (Indice J). Les 



objets sont des ensembles de facet- 
tes (indicées par le registre I). Les blocs, 
dont nous parlerons en détail plus loin, 
sont des ensembles d'objets Indicés 
par le registre K. 

Lorsqu'on veut opérer sur un bloc 
on enfermera la double boucle ba- 
sée sur les Indices I et J dans une bou- 
cle d'indice K («Pour tous les objets 
correspondant à K allant de O à E»). 
Comme Ici nous ne traitons pas de 
blocs (FB = O), nous éliminerons cette 
boucle supplémentaire grâce aux 
lignes 1010 et 1170). 

Il reste l'opération fondamentale 
d'Inversion d'une facette qui corres- 
pond aux lignes 1050 à 11 40. Le pro- 
blème se complique un peu s'il y a 
une arête virtuelle (qui n'apparaît pas 
au traçage sur écran). Nous savons 
que cette arête virtuelle doit néces- 
sairement figurer en tête de chaîne. 
S'il n'y a pas d'arète virtuelle, on se 
contentera simplement d'Inverser le 
sens de parcours des points. Sinon II 
faudra opérer un décalage, ceci 
étant illustré sur la figure 5 bis. 



L'écriture de programmation cor- 
respond à la traduction la plus com- 
pacte de cet algorithme d'Inversion 
de facette. 

SI vous créez sur disquette les sec- 
tions MOD1, MOD2, VOIR, puis l'ob- 
jet DODECA1 , et que vous l'Inversez, 
vous obtiendrez l'Image de la figure 
4. SI vous comparez avec celle de la 
figure 2 vous verrez que ce qui était 
vu est devenu non vu et vice versa. 

. Au passage vous comprendrez 
que nous ferons un appel du sous-pro- 
gramme 1000 lorsque nous voudrons 
prendre le symétrique d'objets de ty- 
pes solide ou graffiti (pour les objets 
fll de fer ou coques cela n'est pas utile, 
les premiers sont non Cachants et les 
seconds n'ont ni extérieur ni Intérieur 
définis). 



Vecteurs normaux 
\ 
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REORIENTATION 
AUTOMATIQUE 
DES FACETTES 

Ceci se trouve cette fols dans 
MOD1 . Référez-vous au listing corres- 
pondant. La procédure de stockage 
d'objet constitue le sous-programme 
8000. Nous trouverons une ligne sup- 
plémentaire : 

8022 IF TYPE(K) = 4 THEN GOSUB 38000 

En clair : si l'objet est de type «so- 
lide», effectuer une vérification de 
l'orientation de ses facettes. 

En 8020 II y a eu appel du sous- 
programme 44000, donc les coordon- 
nées du centre de gravité de l'objet 
ont déjà été calculées et se trouvent 
dans les registres : 
GX(K) 
GY(K) 

©zoo 

SI un observateur était situé exac- 
tement au centre de gravité de l'ob- 
jet. Il seraltà l'intérieur de celul-cl (c'est 
un polyèdre convexe). Donc, pour lui, 
toutes les facettes devraient être «non 
vues». Cet observateur fictif va donc 
appliquer à chaque facette ce critè- 
re «vue, non vue» et donner l'ordre 
d'Inverser la facette quand II la trou- 
vera «vue». 

Ce sous-programme est un mélan- 
ge de ce que nous avons expliqué à 
la leçon précédente et de ce qui vient 
d'être dit à propos de l'Inversion d'ob- 
jets. Pour savoir si la facette est vue 
on calcule le produit scalaire MG . N , 
où M est le point d'obseivation, G le 
centre de gravité de la facette et N 
son vecteur normal, calculé selon le 
produit vectoriel des deux premiers 
vecteurs arêtes de la chaîne. SI ce pro- 
duit scalaire est positif on déclenche 
le sous-programme 29000 qui Inverse 
la facette. 



MANIPULATIONS 
SUGGEREES 

Après avoir mis sur disquette les trois 
sections de programme cl-jointes, le 
lecteur entrera un fichier correspon- 
dant à l'objet erroné ci-après : 
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. RUN «MOD 1 

a - Créer un objet 

a - Créer chaîne par chaîne 

Type d'objet : 

d - Solide 

a -S alsle clavier 

SAISIE DE CHAINES AU CLAVIER 

Nombre de segments ? 5 

Arêtes virtuelles en début de chaîne 

Leur nombre ? 0 

Point numéro 1 

XT = ?- 0.303 

YT = ? 0.934 

ZT = ?-0.187 

Point numéro 2 

etc. 



FICHIER DES POINTS DE CET OBJET ER- 
RONE : 

Ne le stockez pas I Sinon vous ac- 
tiverez automatiquement la routine dé 
réorientation des facettes et les erreurs 
volontairement mises disparaîtront. 

Utilisez alors : 
k - Voir pour produire une image avec 
élimination des parties cachées, se- 
lon la séquence : 

Désirez-vous un tracé du trièdre ? N 
Dessin facette après facette ? N 
<Return> 

Parties cachées éliminées ? O 
Avec arêtes virtuelles ? N 

Vous obtiendrez alors le dessin de 
la figure 2. Revenez au menu géné- 
ral par un <Return>. Puis faites : 
n-lnverser objet ou bloc 
a-lnverser objet 

<Return> pour retour au menu géné- 
ral. 

Refaites alors la séquence de vi- 
sualisation. Vous obtiendrez l'Image 
de la figure 4. 

Stockez alors votre objet en lui don- 
nant un nom quelconque, par exem- 
ple DODECA et refaites une visualisa- 
tion. Vous obtiendrez le dessin de la 
figure 6. 



Le succès de ce travail vous mon- 
tre que grâce à ce matériel vous pour- 
rez désormais entrer les facettes sans 
vous préoccuper de leur orientation. 
L'ordinateur prendra lui-même en 
charge ce travail. Dans la mesure où 
ceci représenterait pour l' utilisateur un 
effort Intellectuel assez complexe on 




Figure 6 - L'objet, après correction 



automatique. 

peut dire que cette section donne au 
logiciel un petit poil d'intelligence 
artificielle. 

Mais ça n'est pas tout. Il reste un 
dernier exercice. Prenez cet objet DO- 
DECA que vous venez de créer et 
Inversez-le, puis faites-en une image 
à l'aide de VOIR. Vous obtiendrez 
ceci : 




Figure 7 - Vue de «l'intérieur» de l'objet. 



Par un effet de perspective ceci 
ressemble à un dodécaèdre vu sous 
un autre angle. Mais en fait II s'agit 
des faces qui dans l'Image précé- 
dente étalent «non vues». C'est 
comme si on apercevait l'intérieur de 
l'objet, devenu transparent. 

Jean-Pierre PETIT 



Objet DODECA 



12 Chaines 



OBJET DODECA, 



FACETTE APRES FACETTE, 
AVEC DES ERREURS D'ORIENTATION 



-O. 303 
0.303 
0. 187 
-O . 49 1 
-0. 794 
-0.303 



1 

O. 934 
0 . 934 
0. 577 
0 . 356 
0. 577 
0. 934 



-0. 187 
0.187 
0. 794 
O. 794 
0. 187 

-0 . 1 88 



Chai ne numéro 
-0.607 
-0. 187 

0.491 

0 . 49 1 
-0. 187 
-O. 607 



0 

-0. 577 
-0 . 356 
0.356 
0. 577 



0 



-0. 794 
-0. 794 
-0. 794 
-0. 794 
-0 . 794 
-0. 794 



Chai ne numéro 
0.794 
0.982 
0. 607 
0. 187 



0 . 303 
0. 794 



0. 577 
0. 934 
0. 577 



Chaine numéro 3 



0. 794 
0 . 303 
O. 187 
0. 607 
0 . 982 
0. 794 



-0. 577 
-0. 934 
-O. 577 



-0. 187 
0. 187 
0.794 
0.794 
0. 187 

-0. 188 



-0. 187 
0. 187 
0. 794 
0. 794 
0. 187 

-0 . 1 88 



Chaine numéro 8 

0.982 O 

0.794 0.5 77 
0.491 -0.356 

0.491 0.356 

0.794 0.577 

•0 . 982 0 • 



Chaine numéro 

0. 303 

0. 794 

0. 491 
-0. 187 
-0.303 

0 . 303 



9 

0.934 



O. 934 
0.934 



0. 187 
0. 18/ 
0. 794 
-0. 7 94 
-O. 187 
0. 188 



0. 187 
-0. 187 
-O. 794 
-0. 794 
-0. 187 

0. 188 



-0. 794 
-0. 491 
0. 187 
O. 303 
-O. 303 

Chaine 
-0. 982 
-0. 794 
-0. 491 
-0.491 
-0.794 
-0.982 

Chaine 
0. 607 
0. 187 
-0. 491 
-0.491 
0. 187 
0. 607 



-0. 934 
-0. 577 
-0.356 
-O. 577 
-O. 934 
-0. 934 



0 . 356 
0. 577 



-0. 356 
-0. 577 

0 



-O. 187 
0. 187 
0. 794 
O. 794 
O. 187 



-Ô. 187 
0. 187 
0 . 794 
0. 794 
0 . 1 87 

-0. 188 



0. 794 
0. 794 
0 . 794 
0. 794 
0. 794 
O. 794 



Chaine numéro 10 

-0.794 0.577 

-0.303 0.934 

-0. 187 0. 577 

-0.607 0 

-0.982 0 

-0.794 0.577 



Chai ne 
-O. 794 
-0.982 
-O. 607 
-O. 187 
-0.303 
-0. 794 



-0.577 
-0.934 
-0.577 



Chai n 



e n umer - o 



-0. 303 
-O. 187 
0. 491 
0. 794 
0 . 303 



-0.934 
-0 . 934 
-0.577 
-0.356 
-0.577 
-0. 934 



0. 187 
-0. 187 
-0 . 794 
-0. 794 
-0. 187 

0. 188 



-0 



187 
187 
•0. 794 
O. 794 
0. 187 
0 . 1 88 



0. 187 
-0. 187 
-0. 794 
-O. 794 
-0. 187 

0. 188 
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14005 CO = 1 >KJ 

[Va 14010 OPENOUT"SAUVQBJ" >TH 

U020 pa int#9.co(K) .gkk) .gy(K) .gzck) ,re(K) , l >pt 

14030 FOR 1 = 0 TD L >LL 

if-: 14040 PBIHTI9.H(I),AV(I) >TM 

•iL; : 14050 FOR J = 0 TO N( I ) >NN 

14060 PRINTI9.XT(I.J),YT(l,J),ZT(l,J> )GE 

•& 14065 GOSUB 15000 >LY 

14070 NEÏT J : NEXT 1 >NR 

14080 CLOSEOUT >FE 

ë£ 14999 RETURN )PE 

% 15000 REM Calcul et trace nage >ZC 

® 15040 XL=XT(I,J)-XH >PP 

15050 YL=YTU,J)-YH >PU 

j» 15060 ZL=ZT( I ,J)ZM >PY 

§gj 15090 XA=XL*XU+YL*YU+ZL»ZU )XX 

g% 15100 YA=XL»IV+YL»YV+ZL»ZV )XT 

JHj 15110 ZA=XHXWtYL«YW+ZL«Zy >XY 

*£j 15121 IF XA=0 AND YA=0 AND ZA=0 THEN ZA=0.001 >KJ 

|«5 15122 RO = SQR(YA»YA+ZA«2A) >VF 

15125 IF XA=0 THEN B=90:G0T0 15127 >AT 

ÎS 15126 B=ATN(R0/XA):B=B»180/P1 >YD 

]m 15127 1F XA<0 THEN B=B+1B0 >TK 

39 15130 1F YA=0 AND ZA=0 THEN A=90:G0T0 15180 >JB 

j»* 15140 IF ZA=0 AND YA >0 THEN A=-9O:G0T0 15180 >KN 

©g. 15150 IF ZA=0 AND YA<0 THEN A=90:G0T0 15180 >JC 

jgg 15160 A=-ATN(YA/ZA):A=AH80/PI >YZ 

■jEjj 15170 1F ZA<0 AND YA >0 THEN A=A-180 )AD 

[Kg 15172 IF ZA <0 AND YA<0 THEN A=AH80 >AJ 

gg 15174 1F ZA <0 AND YA =0 THEN AM80 >ZN 

g§jj} 15180 X=BiSIN(A«PI/180):Y=BiC0S(AtPI/180) >KF 

àjfl 15240 XE=313+X»300/AN >PL 

îjK 15250 YE=200+Y«300/AN )PJ 
*Ï3 15255 IF J=0 THEN PLOT XE.YE.CO ELSE DRAW XE.YE.CO.O )VB 

15999 RETURN >PF 

jiH 17000 REM TRACE TRIEDRE >TQ 

ffij 17005 CO = 3 >LD 

gp 17010 OPENIN'TRIEDRE" >RD 

ffiS 17020 INPUTI9,C0(K).GX,GY,GZ,RE,L >CB 

17030 FOR 1 = 0 TO L >LP 

17040 INPUTI9,N(I),AV(I) >TU 

ijjfe j 17050 FOR J = 0 TO NU) >NR 

17060 INPUTI9,XT(I,J).YT(1J),ZT(I,J) >GL 

17070 GOSUB 15000 >LI 

17080 NEXT J : NEXT I >NU 

BSpj 17090 CL0SE1N >UH 

fift 17999 RETURN >PH 

3^ 18000 REM RECHARGER OBJET >UF 

&g 18005 CO = 3 >LE 

ffip 18010 OPENIN'SAUVOBJ" >RR 

18020 INPUT»9,C0(K),GX(K),GY(K),GZ(K>,RE(K),L )PA 

18030 FOR I = 0 TO L >UJ 

j»p 1B040 INPUT»9.NU),AVU) >TV 

mi 18050 FOR J = 0 TO NU) >NT 

18060 INPUTI9,XT(I.J).YTU.J),ZT(I,J) >GH 

WM 18080 NEXT J : NEXT I >NX 

18090 CLOSE IN >UJ 

v.;:!': 18100 ÙERA.'SAUVOBJ" >QY 

m 
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18110 C = 0 >AK 

18115 SOUND 1,100 >L2 

18117 SOUND 1,50:G0SUB 65020:1F C=32 THEN CALL iA0O0:PR )0X 
1NTI8:PRINTI8 

18118 GOSUB 2000 >DF 

18999 CHA1N"M0D1" >MW 

19000 P8INT"1900O": 'DESSIN FACETTE APRES FACETTE >NH 
19010 FOR 1=0 TO L >LE 
19015 CLS >GB 
19020 FOR J-0 TO NU) >NZ 
19030 IF J>AV(I) THEN C0=1 ELSE C0=2 >CD 
19035 FOR TT=0 TO 200:NEIT TT >WL 
19040 GOSUB 15000 >LU 
19050 NEXT J >BK 
19060 LOCATE 1, 1:PRINT"FACETTE " ; I + 1 :PR 1 NT'Pressez <Ret >FE 
urn>" .-GOSUB 65020 

19070 NEXT I >CA 

19075 CLS >GH 
19080 IF TRIEDRE=1 THEN GOSUB 140O0:G0SUB 17000:GOTO 18 >CJ 
000 

19999 RETURN >PK 

44000 REM Calcul de CG et de RE >UB 

44010 GX=0:GY=0:GZ=0:N=0:RE(K)=0 >BP 

44020 FOR 1=0 TO L: FOR J=0 TO N(l) >ZD 

44025 N=NU >TE 

44030 GI=GX+XT(I,J) >PB 

44040 GY=GY*YT(1,J) >PF 

44050 GZ=GZ+ZTU.J) >PK 

44060 NEXT J:NEXT I >NG 

44070 GX(K)=GX/N >LZ 

44080 GY(K)-GY/N >LC 

44090 GZ(K)=GZ/N >LF 

44100 FOR 1=0 TO L : FOR J=0 TO N([) >ZP 
44110 R=SQR ((XT(I,J)-GX(K))»(XT(I,J)-GX(K)) + (YT(IJ)-G >HJ 
Y(K))»(YT(I,J)-GY(K)) + (ZT(I,J)-GZ(K)H(ZT(IJ)-GZ(K))) 

44120 IF REIKXR THEN RE(K)=R >yj 

44130 NEXT J:NEXT I >NE 

44999 RETURN >PH 

62000 REM CADRE >BB 

62010 CLS >FE 

62015 BORDER 14 >YC 

62020 PLOT 0,0 >LH 

62030 DRAW 639,0,3 >LL 

62040 DRAW 639,399,3 >NP 

62050 DRAW 0,399,3 >LR 

62060 DR A y 0,0,3 >ZA 

62070 CO = 3 >LF 

62999 RETURN >PH 

65000 REM Saisie caractère >VB 

65005 PRINT >CD 

65010 PRINT'Votre choix >ZF 

65020 C$="":C$=1NKEY$: IF C»=" THEN 65020 >FL 

65030 C=ASC(C») >XF 

65035 IF C=13 OR C= 32 THEN C=27:GOT0 65060 >GH 

65040 IF C>96 THEN C=C-96:G0T0 65060 >CH 

65050 IF C<96 THEN C=C-64 >RU 

65060 SOUND 1,20,1 >LV 

65535 RETURN >NG 



VOIR 



1 REM (Super)VOIR CPCS25 avec parties cachées elitinees >BT 



■es facettes...": GOSUB 34000:GOSUB 62OOO:G0SUB 36007:G 
QTQ 2150 

2070 FOR 1 - 0 TO L >FC 
2080 EL ! MF ACETTE=0 : GOSUB 1000: IF ELIMFACETTE=1 THEN 214 >BH 



, preiiere partie. 




0 






2 IF FD = 0 THEN CLS : PRINT'Pas d'accès direct a VOIR. 


>DA 


2090 FOR J=0 T0 N(I) 




)HL 


. .":P8IMT:PBlNT"Je vous renvois sur MODl. . .":ùA:RUN"HOD 
1" 




2100 HE=0 

2105 IF J>AV(I) THEN C0=1 




>CF 
>TV 


5 CLS : LOCATE 17,12 : PRINT'VOIR. . . " 


>DL 


2107 1F VIRTUELLES=1 AND J<=AV(1) THEN C0=2 


>LA 


7 1F L =-1 THEN PRINT:PRlNT"Pas d'oblet résident, reto >UF 


2108 IF VIRTUELLESS AND J<=AV(I) THEN COS 


>LY 


ur sur MODl. . . . ":EL$-*":C=0:CHAIN"MOD1" 




2110 GOSUB 15000 




>CG 


10 GOSUB 44000 




2120 NEXT J 




>VB 


20 BORDER 26»RND:CLS 




2140 NEIT I 




>vc 


25 IF EL$ <) "" THEN LOCATE 25,21 :PRINT"Qbjet résident* 


> 


2150 SOUND 1,50:G0SUB 65020:1F C$=' 


1 " THEN CALL &A000 


>UQ 


: LOCATE 25 , 23 : PR 1 NT ELI : LOCATE 25 25'PRINT T¥PE$ 




2999 RETURN 




>HC 


ju LULMc u, iu . rKini ues irez vous un trace ou tri 


>VQ 


7000 REM Représenter un objet 




>YT 


prfrp ^"•nnçiiR fiÇfi9ivic r-ic. twcw tcichc-c-i CI ce TD i chdc 
eure ,* .uuoud oouiU.lr b-lD IntH IKILUKt-1 tLot IKIhUKh. 




7010 AN = 20 




>KH 






7040 XM = GX(K) + RE(K) * 3.5 




>TQ 


*»u □,iu.rKini uessin racette après îacette i 


>VT 


7050 YM = GY(K) + RE(K) i 2.5 




>TT 


"'l-flPATF 7 1 9 • PB! WT" ( f Q/*of f oc itirtnal lac an Kl an .mCIl 

.buunin f.i^.rfwm nacelles virtuelles en oieuJ .bUbu 




7060 ZM = GZ(K) + RE(K) * 1.5 




>TV 


R fiC.fl9fl.|C P-IR TUCU CATCTTC -ï CI CC rifCTTC-n 

D oouzu.ir l-id Intfi rALtllt -1 clôt rAl/fclifc-U 




7080 XG = GX(K) :YG=GY(K) :ZGSZ(K) 




>BD 


50 GOTO 7000 


>ZA 


7090 CX - XG - XH : CY - YG - YM : 


CZ = ZG - ZM 


>EV 


1000 'FACETTE VUE ' 


>XD 


7100 DD : SQR (CX«CX + CY*CY ) 




>VF 


1(M fl YCCAfCTTC-fi. VrCATCTTC-A. 7mrCTTC-A 


>ML 


7110 IF DD - 0 AND CZ ) 0 THEN TE : 


0 * Kl - PI / 2 " 


G >UU 


1020 FOR J J =0 TO N( 1 ) -1 :' Calcul CG facette 


>QT 


0T0 7210 






1030 XGFACETTE : XGFACETTE+XT( I JJ) 


>EJ 


7120 IF DD = 0 AND CZ < 0 THEN TE = 


0 : Kl =-PI / 2 : 


G >VJ 


ifun /^FArcTTC-vrcArcTTCiVTf i m 
iu*u i ur A un i l£-lVjr AUt îit+TlM.JJ; 


- 


0T0 7210 






mc.n 7ncArcrTC-7rcArcTTCi7TM ni 


>ET 


7130 Kl = ATN (CZ/DD) 




>NJ 


1060 NEIT JJ 


>DK 


7140 1F CX -- 0 AND CY > 0 THEN TE = 


1.57 : GOTO 7210 


>m 


if>7n YficArcTTE-YrcArrTTc iui \ \ 
AurAbtl ifc-AbrAbtl It/NW ) 


>AE 








Ifïftfl VfICArCTTC-VrCif CTTC/kir M 

îuov lurAtsci it-ibrAOtl ifc/nl |j 


>AH 


7150 IF CX = 0 AND CY < 0 THEN TE = 


-1.57 : GOTO 7210 


>MU 


1090 ZGFACETTE=ZGFACETTE/N( 1 ) 




7160 TE = ATN (CY/CX) 




>NN 


1100 XARETE1=XT(1,1)-XT(I 0) 




7170 IF CX < 0 AND CY > 0 THEN TE = 


PI • TE 


>CK 


1110 YARETE1 : YT(1,1)-YT(I,0) 


il 


7180 IF CX < 0 AND CY < 0 THEN TE = 


PI + TE 


>CJ 


1120 ZARETE1=ZT( 1 1)-ZT(I 0) 


)XG 


7190 IF CX < 0 AND CY = 0 THEN TE = 


PI 


>ZN 


1130 XARETE2=XT(I 2)-XT(l 1) 


>XE 


7200 IF CX = 0 AND CY < 0 THEN TE = 


- PI/2 


>CT 


1140 YARETE2=YT(1 2)-YT(I 1) 


>XJ 


7220 REM 




>AC 


1 1 Cn 7ADCTC9-7TM 01.7T/ 1 \\ 


>XN 


7230 CT = COS (TE) : ST = SIN (TE) 




>xc 


1 160 NX z - YARETE2*ZARETE1 * YARETE1*ZARETE2 


>MA 


7240 CK = COS (Kl) : SK ^ SIN (Kl) 




>XY 


1 1 7fl MYz-7ABCTC9lYADCTC! + 7 iDCm «YADCTO 
iwu ni- Z.AKL 1 u*AUUf£ 1 tl + £AKfc 1 tltAAKt! tZ 




7250 XU = CK»CT : YU = CK»ST : ZU=SK 


>AH 


1180 NZ : -XARETE2i YARETE1+Ï.ARETE1 * YARETE2 


)MA 


7260 XV = - ST : YV = CT : ZV = 0 




>UM 


1190 PSCALA 1 RE= (XGFACETTE-XH)*NX+ (YGFACETTE-YH) *NY+ (ZGF 


>ZN 


7270 XU ^ - SK»CT : YU = - SK«ST : 


ZU s CK 


>CC 


ACETTE _ ZM)*NZ 




7280 GOSUB 62000 




>EB 


1200 IF PSCALA 1 RE> -0 THEN ELIMFACETTE-1 




7285 IF FACETTEE THEN GOSUB 19000 




>BB 


1999 RETURN 


>HB 


7290 IF TRIEDRE=1 THEN GOSUB 14000 


: GOSUB 17000 : GOT >CX 


2000 REM Objet delà présent en ieioire 


>GY 


0 18000 






2005 VIRTUELLES S 


>NT 


12000 REM Objet deja présent en iei 


oire 


>HD 


2010 CLS:L0CATE 8, 12:PRINT"Parties cachées eliiinees ?" 


>BR 


12010 C0=1 




>JK 


:G0SUB 65020:1F C<>15 THEN 2999 




12020 FOR 1 = 0 TO L : FOR J = 0 TO NU) 


>AH 


2015 CLS:LOCATE 9. 12:PRlNT"avec arêtes virtuelles ?':G0 


>JU 


12025 IF J<=AV(1) THEN C0=2 ELSE C0=1 


>CA 


SUB 65020:1F C=15 THEN V!RTUELLES=1 




12030 GOSUB 15000 




>LM 


2020 INTERACTIONS 


>PD 


12040 NEXT J:NEXT i 




>NZ 


2030 GOSUB 62000 


>CK 


12050 CS 




>AD 


2040 IF TYPE(K)=0 THEN PRINT'TYPE DE L' OBJET" : PR I NT : PR 1 


)YW 


12060 SOUND 1,50: GOSUB 65020:1F M= 


" " THEN CALL iAÛÛO 


>VL 


NT"l-Fil-de-fer":PRINT"2-Graffiti":PRINT"3-Coque":PRINT 




12070 GOSUB 2000 




)CG 


"4-Solide":PRINT:G0SUB 65000: TYPES: GOSUB 62000 




13000 SOUND 1,200 : CHAIN'MODl" 




>XB 


2050 IF TYPE(K)=1 OR TYPE(K)=2 THEN GOTO 2999 


)U 


13010 CHAIN"M0D1" 




>LU 


2060 IF TYPE(K)=3 THEN CLS:PRINT"Un instant, ie classe 


>GQ 


14000 REM SAUVEGARDE ET DESSIN DE L 


OBJET RESIDENT 


>CU 
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M0D2 



1 REM lsuper)M0D2 CPCS25 >UF 

2 IF FDM THEN 201 >LH 
5 SOUND 1,20: CLS:PR1NT"PAS D'ACCES DIRECT A M0D2":PRIN >ED 
T:PRINT"Je vous renvois sur M0D1. . .":KUN"MÛD1 

10 BORDER 26*RND:CLS : REM MENU PRINCIPAL M 

15 PRINT'MENU Pfi I NC I PAL" : PR l NT >BH 

20 PRlNT"a-Creer un objet" ^AE 

30 PRINT'b-Coipieter oblet ou bloc" ->NZ 

40 PRINT'c-Stocicer un obiet" >DX 

50 PHINT'd-Charger un objet" >W 

60 PRINT'e-Gestlon oe oiocs d'obiets" .>ÙL 

70 PRINT'f-Gestion du catalogue" ->JH 

80 PRlNT'g-Manipuier objet ou bloc" >NM 

90 FRINT"h-Fusions aiverses" >Ei 

100 PRINT"i-Exaiiner obiet" >CA 

110 PRINT" i-Fichier objets standards" >RM 

120 PRINT"k-voir" >PR 

130 PRINT'l-representer un oojet" >LL 

140 PRlNT"i-Plan trois vues" >DV 

150 PRINT"n-lnverser objet ou bloc" >NQ 

160 PRINT"o-Changer type obiet ou bloc" >TG 

170 PRINT'p-" >UB 

180 PRINT"q-Quitter" >UK 
190 IF BL*<>"" THEN LOCATE 22, 17:PRINT"Bloc resident":L >GM 
OCATE 22, 19: PRINT BL$ 

192 LOCATE 25,2 : P8INT"SUPERAMSTRAD-3D" >JF 

193 LOCATE 29,4 :PRINT CHRX164);" J.P.PETIT" >NB 

195 IF ELI O "" THEN LOCATE 22.21:PRINT"ûbiet résident >KC 
": LOCATE 22.23:PR1NT EL* 

196 ' LOCATE 32, 10:PRINT"Drive ";DR1VE* >TG 

197 IF LO-1 THEN LOCATE 31,23:PRINT LUi" ch.":L0CATE >UG 
22,25:PRINT TYPE* 

198 LOCATE 1,22 >ÏA 

200 GOSUB 65000 >WH 

201 ÙERA,"*.BAK":CLS >PQ 
210 IF C=17 THEN END >NL 
220 IF C<1 OR C>17 THEN 10 >RL 
222 IF C=U THEN CHAIN"VOIR" )WJ 
224 IF C=14 THEN GOSUB 1000:GOTO 10 >BD 
230 MODE l: ON C GOSUB 64000,64000,8000,5000,64000,640 >CG 
00,11000,12000,64000,64000 

240 ùERA,"».BAK" >LF 

999 GOTO 10 >UE 

1000 CLS:PRINT"INVERSER":PRlNT:PRINT"a-0b1et":PRINT"b-B >FN 
1 oc": GOSUB 65000 

1002 IF C = 2 THEN FB = 1 :GOSUB 31000 )AW 

1004 IF C = 1 THEN GOSUB 30000 >Vy 

1010 IF FB=0 THEN 1030 >NY 

1020 FOR K=0 TO E:GOSUB 5010 >VY 
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1030 FOR 1=0 TO L >DJ 

1040 N=-l >BA 
1045 IF AV(l)O0 THEN FLA6VIBTUEL=1 ELSE FLAGVIRTUEL^O: >MH 
GOTO 1080 

1050 FOR J=AY(1) TO 0 STEP-1 >VA 

1060 N=NU >KJ 

1065 XE(N):XT(I.J):YE(N)=YT(I,J):XEBISIN)=ZTU,J) >UG 

1070 NEXT J >VE 

1080 FOR J=N(1)-FLAGVIRTUEL TO MU M STEP-1 >LD 

1090 N=N+1 >LB 

1100 XE(N)=XT(I,J):YE(N>=YT(1,J):XEB1S(N)=ZT(I,J) >y« 

1110 NEXT J >UK 

1120 FOR J=0 TO NU) >MD 

1130 XT( I, J )=XE(J) :YT( 1, J)=YE(J) :ZT(1 , J)=XEBIS(J) >«L 

1140 NEXT J >VC 

1150 NEXT 1 >VC 

1170 IF FB=0 THEN 1999 >PY 

1180 GOSUB 32000 >DB 

1190 NEXT K >VJ 

1200 GOSUB 33000 >CF 

1999 RETURN >HB 

5000 REM Charger obiet >RE 

5001 CLS >ZF 
5005 PRINT'Charger obiet (disquette obiet !...)":PR1NT >MH 

5007 lNPUT"Noi de l'objet ";EL*(K) >GK 

5008 EL*=EL*(K) >XK 
5010 PRINT"Je charge ";EL*(K);" "; TYPE* (TYPE (Kl) )WZ 
5017 ON ERROR GOTO 23000 >R2 
5020 IF DRIVE2=l THEN ÙB >TY 
5025 0PEN1N EL*(K) >HG 
5030 INPUT I9,TYPE(K),GX(K),GY(K).GZ(I0,RE(K),L >RJ 
5040 FOR 1 = 0 TO L >FC 
5050 INPUT I9,N(I),AV(I) >TD 
5060 FOR J = 0 TO N(l) >MC 
5070 INPUT I9,XT(I,J).YT(I,J),ZT{1,J) >FE 
5080 NEXT J:NEXT I >MV 
5090 CLOSE IN >H£ 
5095 TYPE=TYPE(K) :TYPE* : TYPEXTYPE(K) ) >KC 
5999 RETURN >HF 
30000 REM obiet en leiolre ? >VH 



30002 IF L <> -1 AND EL* =«" THEN PRINT'Obiet sans n >GT 
oi présent en ieioire":PRINT:PRINT"On garde ?":GÛSUB 65 
020:1F C s 15 THEN 30999 

30010 IF EL* <) M THEN PRINT'Obiet résident ";EL* >PN 



:PRINT:PRINT"On garde ?" : LC= 15 :GOSUB 65020 

30020 IF EL* <> "" AND C = 15 THEN 30999 >BE 

30040 GOSUB 5005 >DB 

30999 RETURN >PC 

65000 REM Saisie caractère >VB 

65005 PRINT >CD 

65010 PRINT"Votre chou :":PRINT >FQ 

65020 C»="\C*=1NKEY*:IF C*="" THEN 65020 >FL 

65030 C=ASC(C») )XF 

65035 IF CM3 ÛR C= 32 THEN C=27:G0T0 65060 >GH 

65040 IF C>96 THEN C=C-96:G0T0 65060 >CH 

65050 1F C<96 THEN C-C-64 >RU 

65060 SOUND 1,20,1 >LV 

65535 RETURN >NG 



9010 CLS:PRINT"CREER OU COMPLETER UN OBJET':PRINT:PRINT >RN 



*a-Chaine par chaîne" 

9020 PRINT"b-0b1et de révolution' >KX 

9040 PRINT'c-Travailler sur oblet standard' >AB 

9050 PRINT'd-Prisie" >TZ 

9060 PRINT'e-Cercle' )TP 

9070 PRINT"f-Arc de cercle" >AN 

9090 GOSUB 65000 >EF 

9095 C1=C >DK 

9100 IF C>6 OR C =-51 THEN 9999 >VT 

9102 IF C<0 THEN 9000 >NR 

9104 CREATIONS >LA 



9106 IF TYPE(K)O0 THEN TYPE-TYPE! K):PRI NT :PRINT"L'ob je )JP 
t est de type ";TYPE»(TYPE(K)):FOR TT=0 TO 1000:NEXT TT 
:G0T0 9110 

9108 CLS:PRINT"Definlr le type de l'obiet:":PRINT:PRINT >ED 
"a-Fll-de-fer":PRINT'b-Graffiti":PRINT"c-Coque':PRINT'd 
-Sollde':GOSUB 65000 : TYPE ( K ) -C : TYPE* =TYPE$ ( TYPE ( K ) ) : TYP 



E=TYPE(K) 

9109 IF CREATI0N>1 AND CREATI0N<7 AND TYPEOl AND TYPE< >CU 
>2 THEN CHAIN"M0D1BIS 

9110 IF CREAT 10N<3 THEN 9500 >yp 
9120 IF TYPE=1 THEN 95Q0 >RU 
9500 ON CREATION GOSUB 26000,34000.11000,54000,32000,33 >AH 
000 

9999 RETURN >HK 

10000 'EXAHINER OBJET >CG 
10999 RETURN >PA 
26000 1 CREER CHAINES AU CLAVIER >DD 
26010 GOSUB 60000 >LQ 
26017 IF CE = 2 THEN GOSUB 14000.-GOTO 26999 >HE 
26020 L=L*1 : IF L>12 THEN CLS:PRINT"Trop de chaînes...": >UD 
SOUND 1.20: FOR TT=0 TO 1000:NEXT TT:GOTO 26999 

26025 CLS: PRINT'SAISIE CHAINES AU CLAVIER": PRINT >X8 

26030 INPUT'Noibre de sejients ";N(D >MV 

26035 PRINT:PRINT"Aretes virtuelles en début de chaine. >AP 
":PRINT:lNPUT"Leur noibre ";AV*:PR1NT: IF AV*="" THEN AV 
(L>=0 ELSE AV(L)=VAL(AV») 

26040 FOR J=U TO NIL) >NC 

26050 PRINT'Point nuiero ";J+1 >DE 

26060 INPUT"IT=';XT(L,J) >UK 

26070 INPUT"YT=";YT(L.J> >UN 

26080 INPUT"ZT=";ZT(L,J) >UR 

26090 NEIT i >CB 

26100 PRINT" Une erreur ?":LC=28:G0SUB 650 >AZ 

20: IF C = 15 THEN 26025 

26130 PRINT" Une autre chaine ?":LC=28:G0SUB 65 >FC 

020: IF C = 15 THEN 26010 

26999 RETURN > PH 

29000 ' INVERSER FACETTE >DG 

29010 N=-l >HE 

29015 IF DRIVE2=1 THEN ÙB ELSE ÙA >AW 

29020 FLAGV1RTUEL= AVI I) >UD 

29025 IF FLAGVIRTUEL=0 THEN 29070 )BD 

29030 FOR J=AV(I) TO 0 STEP-1 >WD 

29040 N=NU >TE 

29050 XE(N)=XT(I,J>:YE(N)=YT<I,J):XEB1S(N)=ZT(1,J) >XH 

29060 NEXT J >CB 



29070 FOR J=N( I ) -FLAGV I RTUEL TO AV(I) STEP-1 >HZ 

29080 N=N+1 >TJ 

29090 IE(N)=ÏT(I,J):YE(H)=YT(I,J):XEBIS(H)=ZT(I,J) >XH 

29100 NEXT J >BG 

29110 FOR J=0 TO N(l) >NA 

29120 XT(1,J)=XE(J):YT(I,J)=ÏE(J):ZT(I,J)=XEBIS(J) >XT 

29130 NEXT J >BK 

29999 RETURN >QA 

38000 'VERIFIER FACETTES >DG 

38010 FOR 1=0 TO L >LF 

38020 XARETE1=XT(1,1)-XT( 1,0) >YJ 

38030 YARETE1=YT(I.1)-YT(I,0) >YN 

38040 ZARETE1=ZT(I,1)-ZT(I,0) >YT 

38050 XARETE2=XT(I.2)-XT(I,1) >Y0 

38060 YAfiETE2=YT(l.2)-YT(l.l) >YV 

38070 ZARETE2=ZT(I,2)-ZT( 1,1) >YZ 

38080 NX - - Y ARETE2» ZARETE 1 4 Y ARETE1 » ZARETE2 >NZ 

38090 NY=-ZARETE2»XARETE1+ZARETE1*XARETE2 >NZ 

38100 NZ= - XARETE2* Y ARETE1 + X ARETE 1 * Y ARETE2 >NP 
38110 PSCAUIRE=(XT(l,l)-GX(K))iNX+(YT(I,l)-GY(K))iny+( >ZD 
ZT(l.l)-GZ(K))iNZ 

38120 IF PSCALAIRE<0 THEN GOSUB 29000 >EN 

38130 NEXT 1 >BJ 

38999 RETURN >QA 

44000 'CALCUL CG ET SE >DD 

44010 GX=0:GY=0:GZ=0:N=0:RE(K)=0 >BP 

44020 FOR 1=0 TO L: FOR J=0 TO NU) >ZD 

44025 N=N*1 >TE 

44030 GI=GX+IT(I,J) >PB 

44040 GY=GY+YT( I , J) >PF 

44050 GZ=GZ+ZT(1,J) >PK 

44060 NEXT J:NEXT I >NG 

44070 GX(K)=GX/N >LZ 

44080 GY(K)=GY/N >LC 

44090 GZ(K)=GZ/N >LF 

44100 FOR 1=0 TO L:F0R J=0 TO N(l) >ZP 
44110 R=SQR ((XT(I.J)-GX(K))KXT(l,J)-GX(K)) + {YT(l,J)-G >HJ 
Y(K))«lYT(l,J)-GY(K)) + (ZT(I.J)-GZ(K))KZT(I.J)-GZ(K))) 

44120 IF REIKXR THEN RE(K)=R >yj 

44130 NEXT J:NEXT 1 >NE 

44999 RETURN >PH 

60000 'TYPE DE SAISIE >DB 

60005 SE=0 >LB 

60010 CLS : PRINT"DEFINITION TYPE DE SAISIE":PRINT >YY 

60020 PRINT"a-Saisie clavier (par défaut)* >WL 
60030 PRINT'b-Saisie écran (Contour polygonal plan)":GO >JN 
SUB 65000 :CE=C 

60040 IF CE<)2 THEN CE=1:G0T0 60999 >BY 

60999 RETURN >PF 

65000 'SAISIE DE CARACTERE >DG 

65010 PRINT:PRINT"Votre choix :" >FQ 

65020 C*="":C*=INKEY$:IF Cl=" THEN 65020 >FL 

65030 C=ASC(C») >XF 

65035 IF C=13 OR C= 32 THEN C=27:G0T0 65060 >GH 

65040 IF C>96 THEN C=C-96:G0T0 65060 >CH 

65050 IF C<96 THEN C=C-64 >RU 

65060 SOUND 1,20,5 >LZ 

65535 RETURN > N G 
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M0D1 



1 REM (superJMODl leçon CPCS25 ; 

2 IF FD=1 THEN 230 ) 

3 FD=1: L = - 1 ; 

4 DIM XT(35.12),YT(3S.12).ZT(35.12),N(35),AV(35).EL<(19 > 
),TYPE(19>,GX(19).GY(19).GZ(19),RE(19).XE(12).YE<12).XE 
BIS(12),YEB1S(12).ST*<19> 

5 TYPE»(l)="fil-de-fer":TYPE»(2>="graffiti":TYPEtl3)="c ; 
oque":TYPE»(4)="solide" 

10 CLS ; 
15 PRINT'MENU PRINCIPAL" :PRI NT ; 
20 PRINT'a-Creer un oojet" ; 
30 PRINT"b-Coipleter oblet ou bloc" ; 
40 PRINT'c-Stocicer un objet" ; 
50 PRINT'd-Chareer un objet" ; 
60 PfiINT'e-Gestion ae biocs a'oojets" ; 
70 PRINT"t-Gestion du catalogue" ; 
Bo PRINT'g-Hanipuler oojet ou oioc" ; 
90 PRINT"n-Fusions diverses" ; 
ÎOO PRINT"i-Eiaiiner objet" ; 
110 PRINT'j-Fichier objets standards" ; 
120 PRINT"k-Voir" ; 
130 PR1NT"1-Representer un obiet" ; 
14U PRiNT"i-flan trois vues" ; 
150 PRINT"n-lnverser objet ou bloc" ; 
lbù PRINT"o-Chaneer type objet ou bloc" ; 
170 PRINT"p-' ; 
16u PRINT"q-yuitter" ; 
190 1F BLiO" THEN LOCATE 22, 17:PRlNT"Bloc resident":L ; 
0CATE 22. 19:PRINT BL» 

192 LûCATE 25.2 : PRINT"SUPERA«STRAD-3D" ; 

193 LÛCATE 29.4 :PRINT CHR»(164);" J. P. PETIT" ) 
195 1F EL» <> "" THEN LOCATE 22.2l:PRINT"0b jet résident > 



": LÛCATE 22.23:PRINT EL» 

196 ' LOCATE 32. 10:PRlNT"Drive ";DR1VE» >TG 

197 IF LO-1 THEN LOCATE 31.23:PRINT L+U" ch.":L0CATE >UG 
22.25:PRINT TYPE» 

198 LOCATE 3.22 >fC 
200 GOSUB 65000 >UH 
205 IF C=ll THEN CHAIN"VOIR >VB 
210 IF C=17 THEN: END >NT 
217 IF C=U THEN CHAIN "M0D2 >VN 
220 IF C<1 OR C>17. THEN 10 >RL 
230 ON C GOSUB 9000.13000,8000.5000,21000,22000,64000,6 >PU 
4000,10000,20000 

999 ÙERA, "».bak":G0T0 10 >UK 
5000 ' CHARGER OBJET >XH 
5005 CLS:PRINT"Charger objet (disquette objet !...)":PR >TU 
1NT 

5007 INPUT"Noi de l'objet ";EL»(K):IF LEN (EL»(K))>8 TH >FF 
EN PR1NT"8 caractères seulement. pressez <Return>" :G0SUB 
65020: GOTO 5000 

5010 EL»=EL»<K):PRINTMe charge \EU(K) 
5020 OPENIN ELt(K):EL»=EL»(K) 
5030 INPUT I9.TYPE(K),GX(K),GY(K),GZ(K),RE(K),L 
5040 FOR I = 0 Tû L 
5050 INPUT t9,N(l),AV(l) 
5060 FOR J = 0 TO Nil) 
5070 INPUT I9,XT(1,J),YT(1,J),ZT(I,J) 
5080 NEXT J:NEXT I 
5090 CLOSEIN 

5095 TYPE»=TYPE*(TYPE(K) ) :TYPE=TYPE(K» 
5999 RETURN 

8000 ' STOCKER OBJET 

8001 CLS:PR1NT"ST0CKER UN OBJET (disquette objet ! 
PRINT: IF L=-l THEN SOUND 1.30,20:PRINT"Pas d'objet resi 
dent !":F0R TT=0 TO 200 : NEXT :: GOTO 8999 

8002 INPUT"Noi de l'objet ";EL»(K):IF LEN (EL*(K)))8 TH >VN 
EN PRINT:PR1NT"8 caractères seulement. pressez <return>" 

: GOSUB 65020: GOTO 8000 

8005 ' >YF 

8007 EL»-EL»(K) >YB 

8008 CLS:PRINT"Type de I 'obiet":PRINT:PR!NT"a-Fil-de-fe >AK 
r":PRlNT"b-Graffiti":PRINT"c-Coque":PR[NT"d-Solide , :GOS 

UB 65000:TYPE(K)=C:TYPE»=TYPE»(C) 

8010 PRINTMe stocke l'objet ";EL»(K);" ";TYPE»(TYPE(K) >HV 



>FE 



>KC 



>YY 



8020 GOSUB 44000 

8022 IF TYPE (K) -4 THEN GOSUB 38000 
8025 OPENOUT EL»(K) 

8030 PRINT I9,TYPE(K),GX(K),GY(K),GZ(K),RE(K),L 

8040 FOR I = 0 TO L 

8050 PRINT I9,N(I),AV(I) 

8060 FOR J = 0 TO NU) 

8070 PRINT »9,XT(1,J),YT(I,J),ZT(IJ) 

8080 NEXT J : NEIT I 

8090 CLOSEOUT 

8100 EL*=EL*(K) 

8999 RETURN 

9000 'CREER UN OBJET 

9005 L=-1:K=KU:EL»(K)="":EL»="":TYPE*^" 



>DE 
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RESULTATS CONCOURS 3D POOL 

AMSTAR & CPC 33 
BRITISH TELECOM 



QUESTIONS 


REPONSES 


I - Combien de trous y a-t-il sur 

un DiLLaru . 


à 


2 -Quand vous faites tomber la 
boule blanche dans un trou, où 
pouvez- vous la mettre sur la table 
pour continuer le jeu ? 


A l'intérieur du "D" 


3 - Au début du jeu, combien y a- 
t-il de boules sur la table ? 


16 


4 - Que se passe- t-il si vous faites 
tomber dans les trous la bille noire 
et la bille blanche en même temps ? 


Vous perdez 


5 - Donnez le nom du champion 
européen actuel de billard. 


Maltese Joe Barber 




Gagne 4 logiciels + 1 T-shirt + 3 af- 
fiches : Paul NICOLAS - 91390 
MQRSANG-SUR-ORGE, 

Gagne 1 logiciel + 1 T-shirt + 3 af- 
fiches : Stéphane BONDU -44700 
ORVAULT. 

Gagne 1 logiciel + 1 T-shirt + 3 affi- 
ches : Sébastien VAN-DEN-BROU- 
CKE - 35160 St Jacques Aéroport. 
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3d pool 



^ Si vous appréciez les jeux de con- 
^ tacts, vous ne risquez pas d'être 
déçus avec 3D Pool. Bien que ce sport 
ne se déroule pas en plein air et que 
les équipes respectives soient unique- 
ment constituées d'une seule per- 
sonne, les rebondissements sont 
nombreux. Pas la peine de faire du- 
rer le suspense, il ne s'agit que d'un 
jeu de billard. Enfin lorsque je dis 
«que d'un» je n'ai pas tout à fait rai- 
son car 3D Pool est original à plu- 
sieurs titres : il s'agit d'un snooker 
représenté en 3 dimensions. Jusque- 
là pas de quoi emboutir une XM mais 
il faut ajouter que la table peut tour- 
ner sur elle-même sous plusieurs 
angles et qu'il n'y pas de queue re- 
présentée à l'écran ! Eh oui, mon 
pauvre monsieur tout se perd. 
Pour les ceusses qui préfèrent regar- 
der Dorothée au lieu de s'amuser 
sainement dans les salles de billards 
enfumées et fréquentées par la haute 
société, voici quelques précisions 
concernant l'art de rentrer les bou- 
les dans les trous : le billard anglais 
se pratique sur une surface de jeu 
perçée de 6 trous. Les boules sont au 
nombre de 15 (7 rouges, 7 jaunes et 
une noire) plus une boule blanche qui 
sera utilisée tout au long du jeu. Par 
manque de couleurs disponibles 
(mode 1 du CPC), la couleur jaune 
est remplacée par du rouge rayé de 
noir. Le gagnant du tirage au sort peut 
commencer par «briser» le triangle 
des 15 autres boules afin d'en entrer 
une dans un des trous. La première 
boule entrée détermine la couleur at- 
tribuée au premier joueur. La partie 
se déroule alternativement entre les 
deux protagonistes au fur et à me- 
sure des fautes et des «séries». La fin 
du jeu est proche lorsqu'il ne reste 
plus que la boule noire à entrer. 
Bien entendu, 3D Pool applique tou- 
tes les règles de ce jeu, il n'est donc 
pas question de tricher. Ah bon, parce 
que l'ordinateur sait jouer au billard. 
Un peu mon neveu qu'il sait jouer le 
bougre !. 




La manipulation du jeu se fait très 
simplement : deux touches font pi- 
voter la table suivant un plan hori- 
zontal ayant pour centre la boule 
blanche et deux autres élèvent ou 
abaissent l'angle entre le plan de la 
table et le point de vue du joueur. 
Ensuite il faut sélectionner l'effet 
désiré puis la force du coup. Un pe- 
tit double click et la boule blanche 
est propulsée vers sa destination. 
Bien que tout cela semble très sim- 
ple, il n'est pas évident que lors de 
vos débuts le résultat soit celui es- 
compté. C'est pourquoi il est conseillé 
de surveiller le mode démo et de 
sélectionner quelques bons coups 
grâce à un éditeur présent dans les 
options. 

Edité par: Firebird 

Prix indicatif : Non communiqué 



Si le billard vous passionne, vous 
apprécierez certainement 3D Pool 
et ses nombreuses options (no- 
tamment le mode tournoi où vous 
affronterez des joueurs informa- 
tiques). Pour les autres, le plaisir 
du jeu peut être gâché par un 
graphisme approximatif et des 
couleurs tristounettes. 

oooo ixiio 
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PROGRAMMEURS, GRAPHISTES, 

îilleure équipe et participez à de très gran 





Paris - Londres - Los Angeles 



TITUS Recrutement 
28 ter Avenue de Versailles 
93220 GAGNY 

Tél. : (1) 43 32 10 92 
Contact : Hervé 




La première aventure publiée par 
Lankhor semble avoir déchaîné 
les passions. Vous avez été nombreux 
à nous demander la solution de ce jeu. 
Aussi, voici une solution directe pour 
connaître enfin le fin mot de l'histoire ! 

- ALLER DANS LE COULOIR 

- ALLER DANS LA CHAMBRE 
DE BOB (2ème porte à droite 
en partant de la fenêtre) 

- OUVRIR LA MALLETTE 
AU-DESSUS DE L'ARMOIRE 

- FOUILLER LA MALLETTE 

- PRENDRE LE POIGNARD 
-SORTIR 

- ALLER DANS LA CHAMBRE DE 
GUY ET D'EVA (Ire à gauche) 
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. Les aventuriers perdus dans leur quête 
^ vont certainement devoir se réveiller 
pour affronter un nouveau challenge 
digne de leur sagacité. 
Times of Lore offre le choix entre trois 
personnages : Le chevalier revêtu de sa 
cotte de mailles, la walkyrie, très agile et 
très gracieuse (oh oui, oh oui) et enfin le 
Barbare qui ,comme tous ceux de sa race, 
est robuste mais pas très malin. Faîtes 
donc vos emplettes au marché des per- 
sonnages et revenez au jeu proprement 
dit. 

En fait ce qui constitue l'originalité du 
scénario est l'absence d'une quête véri- 
table. 

Il y a plusieurs buts à atteindre et ceux- 
ci vous seront révélés au cours du jeu par 
les personnages qui composent l'univers 
de Times of Lore. 

Et vous allez en croiser des créatures lors 
de vos déplacements : des serfs, des au- 
bergistes, des voleurs, des orques, des 
macchabées, des revenants et même des 
choses pas très recommandables. 
Mais commençons par le commencement, 
vous êtes le pensionnaire de l'auberge «la 
gueule de bois» à Eralan. 
Comment vous ne connaissez pas Eralan ? 
Voyons, examinons le plan du royaume 
d'Albarcth. 



En effet, au centre ouest de la con- 
trée, on trouve la riante cité, bor- 
dée au nord par la forêt noire et au 
sud par la Grande Mer. 

Ça y est, vous êtes maintenant dans 
l'ambiance ? 

Bon on va pouvoir y aller. Les clients 
de l'auberge ont certainement des 
choses à vous apprendre et peut- 
être même certains vont-ils vous 
proposer une mission. 
N'hésitez pas à accepter, vous dé- r: 
couvrirez du pays. 
Pour discuter, aucun problème de 
langue puisque toutes les questions et les 
réponses sont déjà inscrites, il suffit de 
pointer son choix. 

Passons maintenant à une autre activité 
de notre héros : les combats. Ils sont tout 
simplement réglés par une succession de 
pressions sur le bouton Fire. 
Lorsque vous prenez des coups , votre 
vitalité (symbolisée par une bougie) des- 
cend d'un cran. 

Très souvent, vos adversaires morts lais- 
seront quelque chose derrière eux : une 
potion, un parchemin ou des pièces d'or. 
Emparez -vous rapidement de ces objets, 
ils peuvent être utiles. 
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Si vous voulez sauvegarder une partie en 
cours, il faudra trouver un aubergiste et 
lui demander une chambre (eh oui, c'est 
comme ça). 

Normalement aidé par le plan vous de- 
vriez parvenir à résoudre quelques énig- 
mes et ainsi gagner de la renommée. 

Edité par : Origin- 
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Si Times of Lore présente certaines 
qualités au niveau du scénario et de 
la gestion du jeu par icônes, il n'em- 
pêche que le graphisme n'est pas 
toujours très agréable, que les couleurs 
ne favorisent pas la clarté de l'écran 
et surtout que la traduction française 
du logiciel et du manuel est vraiment 
mauvaise (les personnages sont tra- 
duits littéralements par «caractères») 
sans parler des fautes d'orthographe 
qui nuisent également à la lecture. Les 
puristes préféreront certainement une 
version anglaise. 

oooo dofco 



Nous cous présentons chaque mois quelques 
logiciels qui ont tous un point commun : leur 
prix... 

En effet, ce sont des programmes sur casset- 
tes, qui valent "20 balles" en Angleterre et 
vous pourrez vous les procurer pour la mo- 
dique somme de 26 francs, port compris, en 
vous adressant chez DUCHET COMPU- 
TERS dont voici les coordonnées : 
51 St George Road 
CHEPSTOWNP6 5LA 
ANGLETERRE 
Tél. (44) 291.625.780 



Shangai 
warriors 




HUNDRA 



Shangaï Warriors doit son c 
à la légende de Lo Yin, maître de ka- 
raté qui devint célèbre après la fantasti- 
que victoire qu'il remporta un jour sur 
son ennemi juré, Wang Chen. Il décida 
ensuite de créer sa propre académie de 
karaté ouverte à tous les jeunes combat- 
tants désireux de faire valoir à travers cette 
discipline les valeurs essentielles que sont 
la liberté, l'honneur et la justice. Pour la 
mission qui est à remplir aujourd'hui, les 
meilleurs éléments de cette école ont été 
sélectionnés et, bien entendu, vous en 
faites partie. 
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Elcid 



Contrairement à ce que pourrait lais- 
ser entendre le titre, ce jeu ne se passe 
nullement en Espagne ; par contre, vous 
voilà transporté au Xle siècle et chargé 
de retrouver un parchemin qui ne doit 
absolument pas tomber aux mains des lé- 
gions de Satan, forces du Mal qui veu- 
lent acquérir la suprématie de toute la 
planète. 

Outre les combats que vous devrez me- 
ner contre différents adversaires, vous 
avez des objets à trouver afin de réussir 
votre mission ; d'une part, il vous faut 
une lampe qui vous permet d'accéder au 
domaine de Devil et, d'autre part, un sac 
d'or qui sera très utile pour acheter la clé 
enchantée. Enfin, vous serez bien content 
d'avoir votre petite femme qui a le pou- 
voir de recharger en énergie vos gros 
muscles, génial, non ? 



Edité par : MASTERTRONIC 



Ce logiciel vous introduit dans le 
monde fantastique du Royaume de 
Lukx où, en bonne fille de votre père, vous 
allez tenter de faire tout ce qui est en votre 
pouvoir pour le délivrer. Seulement, il ne 
suffira pas de retrouver Jorund et de le 
libérer, il faudra en plus découvrir trois 
bijoux sacrés dissimulés tout au long des 
4 phases que vous devez parcourir. Vous 
traverserez ainsi une partie en plein air 
avant de combattre des ennemis sous le 
pont, ce qui vous mènera au château et 
pour terminer dans ses sombres sous-sols. 
Des piranhas, des fantômes ou des vam- 
pires sont quelques-uns des 8 types d'en- 
nemis que vous rencontrerez mais vous 
recevrez aussi, bien sûr, des aides qui vous 
viendront du ciel comme, par exemple, 
le cristal qui vous évitera de perdre une 
vie quand vous tomberez dans l'eau, la 
clé ronde qui, une fois en votre posses- 
sion, vous permettra d'aller récupérer la 
clé triangulaire... Vous pourrez ainsi 
pénétrer dans le château et vous rappro- 
cher du tableau final ! 

Edité par : MASTERTRONIC 
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Si les graphismes de El Cid ne sont 
pas particulièrement accrocheurs, l'ani- 
mation de jeu lui donne un certain in- 
térêt pour la recherche de ce parche- 
min tant convoité. 



- OUVRIR LA MALLETTE 
SUR L'ARMOIRE 

- FOUILLER LA MALLETTE 

- PRENDRE LA BAGUE 
SURMONTEE D'UNE CROIX 

-SORTIR 

-ALLER A LA CAVE 

- METTRE LE POIGNARD 
DANS LA FENTE NOIRE 
JUSTE AU-DESSUS DU SOLEIL 
DU PILIER AU MILIEU 

- EMPRUNTER LE PASSAGE 
SECRET 

• REPONDRE AUX 10 
QUESTIONS : 
1 - NATURELLEMENT 
2 -AUTRE 

3 - RECHERCHES HISTORIQUES 

4 - SALLE A MANGER 

5 - UN PARCHEMIN 

6- 3 

7- 10 

8- MURIELLE 

9- GUY 

10- LEO 

- PRENDRE LA BAGUE EN OR 
AVEC LA CROIX 

- METTRE LA BAGUE SUR LE 
TROU EN HAUT DE LA BOULE 

- TOURNER LA BAGUE 

- ENTRER DANS LA CRYPTE 

- FOUILLER LA MAIN QUI TIENT 
LA LANCE 

- PRENDRE L'OBJET EN BOIS 
-SORTIR 

- REPRENDRE LA BAGUE 
SUR LA BOULE 

-SORTIR 

- ALLER DANS LE GRENIER 
(à droite de la fenêtre, dans le 
couloir) 

- OUVRIR LE TIROIR DU HAUT 
DE LA COMMODE 

- FOUILLER LE TIROIR 

- PRENDRE LA BAGUETTE 

- METTRE L'OBJET EN BOIS EN 1 

- METTRE LA BAGUETTE EN 2 

- TOURNER SUR LA BAGUETTE 

- LIRE LE LrVRE... 

Et vous saurez tous les détails de l'his- 
toire ! 
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Le premier qui me parle de «Super Scrabble» je lui met 
deux baffes. Vous ne croyez pas que j'ai une tête à me cas- 
ser la tête pour trouver des mots de 7 lettres à caser sur un 
plateau de jeu. Ce que je veux, moi c'est de l'action. Ca tombe 
bien parce que Super Scramble est une simulation de casca- 
des à moto. Je n'ose pas dire qu'il s'agit de moto cross ni de 
trial mais plutôt d'un subtil mélange de ces deux styles de 
conduite. Pour une fois je prends des gants et j'enfourche ma 
machine. Bon d'accord en général, je ne suis pas particulière- 
ment fainéant mais là, ils m'ont collé 15 parcours à la suite ! 
J'en vois qui croient que ça va être une partie de plaisir et 
qu'il ne s'agit en fait que de foncer tête baissée et de ne se 
relever que pour le franchissement des obstacles. Eh bien ceux- 
là ils ont tout faux, car Super Scramble, malgré son nom est 
fait tout de subtilité et de stratégie. D'abord il y a l'écran de 
jeu et le tableau de bord composé de deux zolis cadrans l'un 
étant le compteur de vitesse et l'autre le compte-tours. Entre 
ces deux cadrans il y a un indicateur des vitesses enclenchées. 
On peut alors compter sans peine 3 vitesses plus le point mort. 
Je vois maintenant que ceux qui rigolaient tout à l'heure ont 
des tronches de Michel Sardou en deuil. 
Eh oui, il va falloir passer des vitesses au bon moment selon 
le type de terrain ou d'obstacle. Dans la première section (celle 
dont ils l'appellent dans le jeu la section facile) il y a 3 par- 
cours différents qui doivent être effectués en un temps mini- 
mum (de l'ordre de 2 minutes). 





Let's go ! Après un petit compte à rebours, c'est le rugisse- 
ment (oui, enfin... presque) du moteur qui emplit le haut-par- 
leur du CPC. Après avoir acquis un nombre raisonnable de 
tours/minute, il est possible d'enclencher la première vitesse 
sans caler. C'est là que commencent les difficultés de mani- 
pulation car votre unique manette est utilisée comme poignée 
des gaz, pédale de changement de vitesse, frein, guidon et de 
plus elle doit corriger l'assiette de votre moto «en vol» tout en 
effectuant des «wheelings». Dans le premier parcours vous 



rencontrerez par exemple des tremplins que vous pourrez passer 
en troisième sans problème. Mais attention à l'atterrissage qui 
doit s'effectuer presque à l'horizontale car sinon vous «écra- 
sez» la roue arrière ou avant. Les pentes elles, se prennent en 
deuxième ou en première pour les plus costauds (60 degrés). 
Certaines parties du terrain sont limitées en vitesse lorsque 
vous dépassez ces limites vous êtes sanctionné par des secon- 
des de pénalité. Et ce n'est pas toujours facile de rouler à vi- 
tesse réduite lorsque l'on jette un coup d'oeil sur le chrono- 
mètre du bas de l'écran. Mais le plus difficile à mon avis est le 
passage des obstacles qui vous obligent à soulever alternati- 
vement la roue avant et la roue arrière tout en roulant suffi- 
samment vite pour ne pas caler mais pas trop rapidement à 
cause des limitations !. 

Il y a deux vues du terrain sur votre écran : la première est la- 
térale et vous montre en pleine action, la seconde semble être 
prise d'un hélicoptère et vous permet de vous situer à droite 
ou à gauche du terrain ce qui est parfois utile car certains obs- 
tacles sont placés à l'extrême gauche ou à l'extrême droite. 
Les trois premiers parcours, ainsi que les suivants, peuvent 
être effectués dans n'importe quel ordre. Si vous réussissez à 
descendre en dessous du temps minimum sur un des parcours, 
vous n'aurez plus le choix qu'entre deux terrains et ainsi de 
suite jusqu'à épuisement des parcours. 

Edité par : Gremlin 
Prix indicatif :K7, 99F 
DK, 149F 



Super Scramble ne plaira pas à tout le monde : les graphismes sont bons mais les couleurs pas terribles. 
L'animation est parfois molle et le son ne transcendera pas la moindre oreille. Ben alors, c'est nul? 
Finalement on peut se laisser prendre au challenge et même, sans comparer ce logiciel à un simulateur, 
trouver du plaisir à vaincre les différents obstacles. 
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Couleurs 


P. 26 




Satanas 


P. 39 




Compacteur 


P. 75 




Caractères 


P. 80 




Anti-erreurs 


P. 84 




Disquette système au format data 


P. 87 


CALAMITES 


N°30 


• Erratum article Vidéo N° 29 


P. 86 


BIDOUILLE 


N°27 


: Bootez vos disquettes 


P. 88 


N°31 


: Réduction du code Basic 


P . 78 


INITIATION 



N°28: 



N c 29: 



N°30: 



N°31 : 



33: 
34: 



Catalogue détourné 


P. 28 


La copie des listings 'en binaire'' 


P . 33 


Vidéo (2) 


P . 86 


Vidéo (3) 


P . 36 


CAO sur CPC : splitting 


P. 48 


Vidéo (4) 


P. 46 


Architecture et composition des RSX (1) 


P. 54 


Vidéo (5) (Calamités n° 30) 


P. 20 


CAO sur CPC objets chaîne par chaîne 


P . 42 


A la découverte du clavier 


P. 84 


Vidéo (6) 


P. 20 


CAO sur CPC 


P. 41 


Le clavier 


P. 73 


Analysons les fichiers 


P . 80 


CAO sur CPC : 2 types d'images 3D 


P 36 


Puissance 4 


P . 80 


CAO sur CPC : création automatique d'images 


IV 42 


CAO sur CPC : élimination des parties cachées 


P. 28 



TRUCS ET ASTUCES 



N° 27 : Barbarian - Cybernoïd - L'héritage 
La panthère rose - Gauntlet II 

Escape from singe s castle P. 72 

Pêle-mêle - Premier octet à l'écran P. 86 

N° 29 : A TV Simulator - Clever & Smart 

Cybernoïd - Driller P. 80 

Affichage mode 2 - Cacher un programme 

Improper argument - Les moyens du bord 

Téléchargement - Bizarre P. 109 

N°30: Pot-poum - Full 6128 

Tas word < DMP 2000 + cadres P. 48 

N° 31 : Agenda, CPC HS n° 10 - Suppression espj 

Sem word - Sécurité input - 3 unités sur 464 P. 86 

Savage - Opération wolf - Fire and Forget P. 112 

N° 32 : Tables de multiplication - Debugg 

Users - Factorielles - Stream - Notions en mémoire P 99 
N° 33 : 3 en 1 - Rectification - A la trace - Improper argument 

Scrolling 464 - Debout les morts î P. 29 

N° 34 : Test DMP 2160 - Protéger une liste de programmes P. 99 
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GESTION DE FICHIERS 



La capacité mémoire du 6128 
n'est pas toujours exploitée par 
les logiciels du commerce (be- 
cause la compatibilité descendante). 
Et pourtant les 64 Ko supplémentai- 
res du 61 28 pourraient être utilisés pour 
stocker et échanger des Informations 
de manière très rapide par rapport à 
une unité à disquettes. Prenons, par 
exemple, le cas d'une gestion de fi- 
chiers (comme par hasard I). Il peut 
être intéressant de conserver des 
données en mémoire afin de pouvoir 
faire des recherches ou des tris ultra- 
rapides. 



Gestion de fichiers, vous l'avez 
compris fonctionne uniquement sur 
6128. D'ailleurs, dès la mise en mar- 
che, on vous demande d'insérer la 
disquette système livrée avec la 
machine. Il s'agit bien sûr de charger 
le bankman. Bon point donc pour l' Ins- 
tallation qui ne nécessite pas de 
manipulation de fichiers. La disquette 
étant déprotégée contre l'écriture, 
l' Initialisation ne s'effectue que lors de 
la première utilisation. 

Le programme cherche tout de 
suite si un fichier de données est déjà 
présent sur la disquette. SI ce n'est pas 
le cas, 11 affichera un message vous 
Indiquant qu'il n'a rien trouvé, ainsi 



qu'une liste d'options nécessaires à 
la création d'un tel fichier. Comme 
plus personne ne l'Ignore de nos jours, 
un fichier est composé de champs qui 
constituent autant de rubriques pou 
votre futur fichier. On peut ainsi avoii 
un champ «Nom», «Adresse», etc. 
reste encore à définir le type de don- 
nées qui prendront place à l'intérieur 
des champs et à Indiquer une lon- 
gueur si le champ est de type «ca- 
ractères» (dans les deux autres cas, 
la longueur des données est prédéfi- 
nie). Pour le type «logique» Il y a deux 
valeurs possibles : vrai ou faux (V ou 
F) et pour le type «date» le format JJ/ 
MM/AA est de rigueur. 

Mais pour utiliser une gestion de 
fichiers. Il faut avoir des fiches. Le menu 
«enregistrement» est là pour ajouter 
des données selon les champs déjà 
définis. Là aussi, la convivialité est de 
règle puisque vous disposez d'un édi- 
teur pleine-page : un marqueur noir 
se déplacera devant les différents 
champs sous l'Impulsion des touches 
fléchées, Bien sûr II est toujours possi- 
ble de modifier ou de retirer des don- 
nées plus tard et ceci en utilisant les 
filtres. Les filtres, comme leur nom l'in- 
dique, sélectionnent certaines don- 
nées de certains champs. Par exem- 
ple si vous voulez modifier dans votre 
carnet d'adresses tous les numéros de 
téléphone des Parisiens le filtre sera 
«Ville=PARIS» et vous pouvez ajouter 
des opérateurs logiques à cette défi- 
nition : AND Téléphone <> «» pour ne 
disposer que des personnes ayant le 
téléphone. 

Une autre particularité du pro- 
gramme est la création de masques. 
SI vous voulez, par exemple, sortir des 



étiquettes, il convient de disposer les 
données autrement qu'à la queue leu 
leu. Toujours en utilisant les touches flé- 
chées, vous n'aurez aucun problème 
à modifier la position originelle. Il peut 
y avoir jusqu'à 10 masques et 10 fil- 
tres différents portant chacun un nom 
propre. 

L'option filtre est présente mais elle 
autorise le tri uniquement sur un 
champ (ascendant ou descendant) 
ce qui limite les possibilités dans ce 
domaine. Enfin avec les filtres on peut 
arriver à obtenir presque ce que l'on 
veut: 



MPMNSN7E 

'' 9 HUHiHo. Pa îai ' m Mm 



La sortie du fichier peut être diri- 
gée vers l'écran, vers un autre fichier 
ou vers l'Imprimante. Dans ce dernier 
cas II est possible de définir les para- 
mètres de la machine pourvu qu'elle 
soit compatible Epson. 

Gestion de fichiers est très Intéres- 
sant pour gérer efficacement toutes 
sortes de fichiers. Même une personne 
complètement néophyte en la ma- 
tière n'aura pas de gros efforts à four- 
nir pour s'adapter au programme. 
D'autant que la plupart des comman- 
des sont Inscrites à l'écran. 

Edité par : Micrologie (1 ) 69.21 .61 .65 
Prix Indicatif : 290F 
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APPRENONS 
A PROGRAMMER 




Ire partie 



Dans la grande famille des Amstradistes, il y en 
a qui, après avoir tapé quelques listings trouvés 
dans leur revue favorite, ont eu envie de créer 
eux aussi des programmes. Ils ont étudié 
attentivement le dictionnaire BASIC du manuel 
avec ses quelques exemples, lu quelques 
articles à thème dans AMS TRAD-CPC, 
et se sont lancés sur leur clavier. 




Au début, les petits program- 
mes de une à quelques di- 
zaines de lignes finissaient gé- 
néralement par tourner. Les premiers 
succès les ayant mis en confiance, Ils 
ont abordé des projets plus ambitieux. 
Et c'est là que les choses se sont gâ- 
tées. Déception, découragement, 
abandon pour certains. Pourquoi ? 

C'est que pour programmer, de 
la manière la moins laborieuse possi- 
ble et en se donnant au départ le 
maximum de chances de succès, Il 
ne suffit pas de connaître un langage 
de programmation, en l'occurrence 
le BASIC. 

Qu'est-ce qui manquait dans le 
scénario évoqué ? Trois choses essen- 
tielles : 

• l'analyse du problème à résoudre, 
autrement dit de ce qu'on veut faire, 

• un minimum de méthode dans la 
conception et l'écriture du program- 
me, 

• un peu d'expérience dans sa mise 
au point, c'est-à-dire une connaissan- 
ce au moins élémentaire des pièges, 
ainsi que des messages d'erreur et de 
ce qu'ils Impliquent. 

Croyez-moi sur parole, vous le cons- 
taterez d ' ailleurs bientôt vous-mêmes 
: un programme", même conçu avec 
méthode, fonctionne rarement au 
premier Run ; Il y a au moins des fau- 
tes de frappe (Syntax Error I), et la plu- 
part du temps des oublis ou de peti- 
tes erreurs de conception ou d'écri- 
ture (celles-là ne donnent générale- 
ment pas de messages d'erreur, mais 
des résultats vraiment bizarres). Com- 
mence alors la phase de mise au 
point, et là II faut être encore plus mé- 
thodique pour évffer les crises de nerfs. 

Cette série d'articles n'est pas un 
cours d'Initiation au BASIC, mais sup- 
pose au contraire que ce langage soit 
connu dans ses grandes lignes. Elle ne 
s'adresse pas vraiment aux tout dé- 
butants (bien qu'ils puissent par la suite 
en tirer profit), mais plutôt à ceux qui 
connaissent déjà le BASIC , mais man- 
quent d ' une méthode sûre pour con- 
crétiser leur rêve. Je tiens à préciser 
que la méthode exposée n'est pas 
une recette rigide, mais seulement un 
ensemble de principes souples, qu'il 
est parfaitement légitime d'adapter 
à chaque cas particulier, voire de sim- 
plifier si nécessaire. 



DISCOURS 
DELA METHODE 



Examinons dans l'ordre comment 
se présentent les choses quand on 
veut réaliser un programme. Au dé- 
but, on a une Idée généralement va- 
gue (qui dira le contraire ?) de ce 
qu'on veut faire. 



SAVOIR CE QU'ON 
VEUT FAIRE 

La première chose à faire est de 
définir clairement le but qu'on veut 
atteindre en posant l'énoncé du pro- 
blème. Il s'agit tout simplement de dé- 
crire, en quelques lignes, avec le maxi- 
mum de précision mais sans entrer 
dans les détails, le ou les résultats qu'on 
veut obtenir. On s'oblige ainsi à sortir 
du flou plus ou moins artistique. Pour 
bien me faire comprendre, je vais choi- 
sir un exemple simple, et en faire l'ana- 
lyse pas à pas. Eh oui, c'est bien d'ana- 
lyse qu'il s'agit ; mais n'ayez pas peur, 
ce grand mot recouvre des notions 
logiques beaucoup plus simples qu'on 
ne le croit. 

Fixons-nous le but suivant : «Réali- 
ser un menu à 3 options». C'est clair, 
mais pas tout à fait assez précis à ce 
niveau de l'analyse ; en effet, les me- 
nus sont très variés en fonction du mo- 
de de désignation de l'option cou- 
rante, celle qui est pointée sous le nom 
de barre de choix ou barre de menu 
(flèche mobile, vidéo Inverse, enca- 
drement, changement de couleur) ou 
du mode de choix (frappe d'un nom- 
bre ou de l'Initiale de l'option). Il faut 
donc faire un... choix. Ajoutons à la 
description du but : «Avec désigna- 
tion de l'option courante par vidéo 
inverse» (ça fait tellement pro I). Ce 
sera tout pour l'Instant. Vous avez re- 
marqué que nous n'avons pas encore 
précisé par quel(s) moyen(s) nous es- 
pérons obtenir ce résultat. C'est que 
nous n'en savons encore rien. 



SAVOIR COMMENT 
ON VEUT LE FAIRE 

Pour le savoir. Il faut procéder à 
l'étape suivante de l'analyse. Jus- 
qu'Ici, nous n'avons volontairement 



examiné le problème que de très loin. 
Alors approchons-nous un peu. Un but, 
précisons-le, est atteint par la combi- 
naison de différentes actions élémen- 
taires, pouvant appartenir à des do- 
maines différents, et se succéder dans 
le temps. Un objectif est le résultat at- 
tendu d'une action élémentaire qui 
peut concourir, avec d'autres, à la 
réalisation d'un but donné. Ce sont 
des définitions très générales, appli- 
cables à toute méthode de résolution 
de problèmes complexes, pas seule- 
ment de nature Informatique. Le prin- 
cipe de la méthode est simple. Face 
à un problème représentant une ac- 
tion complexe, mais dont on a au 
préalable déterminé le but, Il s'agit de 
décomposer cette action en plusieurs 
actions élémentaires de nature diffé- 
rente et autonomes, bien qu'elles coo- 
pèrent à la bonne fin de l'ensemble. 
Puis on répète l'opération sur chacune 
des actions élémentaires ainsi Isolées, 
et ainsi de suite jusqu'à obtenir des 
éléments très simples, faciles à traduire 
dans un langage de programmation. 
Et II est parfois plus facile d'Isoler ces 
actions de plus en plus élémentaires 
en Identifiant les objectifs correspon- 
dants, puis les sous-objectlfs, etc. Al- 
lons bon. J'en vols qui ont déjà décro- 
ché au fond de la classe, alors reve- 
nons à notre exemple. 

Pour faire fonctionner un menu à 
3 options, avec désignation de l'op- 
tion courante en vidéo Inverse, quel 
sera notre 1 er objectif ? De toute évi- 
dence, commencer par afficher les 
3 options du menu. C'est l'objectif N° 
1 . Au fait, c'est quoi l'option couran- 
te ? Même si nous n'avons jamais pro- 
grammé de tels menus, nous en avons 
déjà vus, non ? 

A première vue, l'option courante 
c'est celle qui à un moment donné 
est en vidéo Inverse, correspondant 
donc à un choix provisoire qui n'at- 
tend que l'appui sur une certaine tou- 
che pour être validé (ce qui appelle 
l'action correspondante), ou sur une 
certaine autre touche pour passer à 

I ' option suivante , qui se met à son tour 
en vidéo Inverse, alors que la précé- 
dente revient en vidéo normale. Alors 

II faudrait peut-être prévoir qu'au pre- 
mier affichage du menu il y ait déjà 
une option en vidéo inverse (c'est gé- 
néralement la première) : objectif N° 2. 

Pour modifier ce bel état de cho- 
ses, le programme doit réagir à une 
Intervention extérieure, l'appui sur une I 
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touche ; c'est une entrée, en l'occur- 
rence une entrée au clavier (dans 
d'autres types de programme, ce 
pourra être une entrée à partir d'un 
fichier, ou du joystick, etc.). Donc ob- 
jectif NT 3 = réaction à une entrée cla- 
vier. 

Suivant la touche pressée, nous au- 
rons soit la validation (objectif N° 4) 
soit le passage à l'option suivante , 
ce qui modifie l'affichage (objectif N° 
5). Les objectifs 1 , 2 et 5 sont des sor- 
ties à l'écran (dans d'autres cas, on 
peut avoir des sorties sur fichier, sur Im- 
primante, etc.). 

Vous voyez peut-être mieux main- 
tenant pourquoi je vous disais que les 
actions élémentaires sont différentes 
entre elles et autonomes. Si une ac- 
tion élémentaire peut en effacer une 
autre (modification de l'affichage du 
menu par passage à l'option suivan- 
te), ces 2 actions élémentaires sont 
Indépendantes dans leur nature, car 
on peut les décrire, les décortiquer in- 
dépendamment l'une de l'autre. 

C'est d'ailleurs ce que nous allons 
devoir faire. En effet, cette étape de 
l'analyse consiste simplement à énu- 
mérer avec précision toutes les ac- 
tions élémentaires qu' Il faudrait effec- 
tuer à la main pour atteindre le bu1 
fixé. Et ce qui a été décrit jusqu'Ici 
pas encore assez élémentaire, mon 
cher Watson , pour y parvenir. Nous al- 
lons donc devoir décomposer certains 
objectifs en sous-objectifs. 

• Objectif N° 1 : afficher le menu. 
Afficher les 3 options du menu, OK. 
mais suivant quelle disposition ? Vous 
vous demandez, j'en suis sûr, si c'est 
maintenant que nous allons choisir en- 
tre menu horizontal (avec options ali- 
gnées sur une ligne) et menu vertical 
(options superposées). Franchement, 
je vous dirai qu'à ce stade de l'ana- 
lyse c'est un problème tout à fait mar- 
ginal que nous réglerons en temps uti- 
le. Il suffit de définir 3 positions diffé- 
rentes et : 

- afficher le libellé de l'option 1 en po- 
sition 1 , 

- afficher le libellé de l'option 2 en po- 
sition 2, 

- afficher le libellé de l'option 3 en po- 
sition 3. 

• Ob|ectif N° 2 : mettre en vidéo 
Inverse la Ire option. 

^Rien de particulier à décortiquer, mais 
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une petite précision à apporter 

- afficher le libellé de l'option 1 en vi- 
déo inverse en position 1 . 

• Objectif N° 3 : réagir à une entrée 
clavier. 

Tout d'abord. Il faut marquer le pas 
tant qu'une touche n'est pas enfon- 
cée. C'est une boucle d'attente. 

Suivant la touche enfoncée, il de- 
vra y avoir orientation, soit vers l'ob- 
jectif N° 4, soit vers l'objectif N° 5. Il 
faut donc d'abord définir les 2 tou- 
ches actives (c'est-à-dire les seules qui 
auront une action dans cette partie 
du programme), et prévoir, si une au- 
tre touche est enfoncée, un retour à 
la case départ, autrement dit la bou- 
cle d'attente, afin de ne pas planter 
bêtement le programme ou l'envoyer 
sur une voie sans Issue. Choisissons, par 
exemple, la touche ENTER et la tou- 
che ESPACE (parce que c'est géné- 
ralement l'habitude, mais on aurait pu 
choisir n'Importe quoi) : 

- si touche pressée = ENTER alors ob- 
jectif N° 4 (validation) sinon si touche 
pressée = ESPACE alors objectif N° 5 
(option suivante) sinon boucle d'at- 
tente. 

C'est ce qu'on appelle un test. 

• Objectif N° 4 : déclencher l'opéra- 
tion correspondant à l'option choisie. 
Chaque option doit appeler une ou 
des actions particulières, absentes Ici 
puisqu'il s'agit d'un menu de démons- 
tration. Il faut cependant prévoir com- 
ment le programme peut savoir quelle 
action il doit appeler. La notion d'op- 
tion courante et un autre test vont 
nous sortir d'affaire : 

- si option courante = option 1 alors 
action 1 sinon si option courante = 
option 2 alors action 2 sinon action 3. 

• Objectif N° 5 : passer à l'option sui- 
vante. 

A la notion d'option courante, ajou- 
tons celle de position courante, et nous 
allons beaucoup nous simplifier la vie. 
Mais oui, la position courante, c'est 
la position occupée par l'option cou- 
rante, comment avez-vous deviné ? 
Il faut : 

- effacer la vidéo Inverse de l'option 
courante, donc afficher le libellé de 
l'option courante en vidéo normale 
à la position courante ; 

- se placer sur la position suivante, et 
y afficher le libellé de l'option suivante 
en vidéo inverse ; 



- la nouvelle position devient la posi- 
tion courante, et la nouvelle option 
l'option courante. 

Il faut aussi attendre une validation 
éventuelle, ou un nouveau change- 
ment d'option, donc : 

- retourner à la boucle d'attente ; ce 
retour à une action précédente est 
une autre forme de boucle. 

Cela vous paraît chouette ? OK, pas- 
sons de l'option 1 à l'option 2, de l'op- 
tion 2 à l'option 3, et de l'option 3 à 
la suivante. . . Damned. y a plus d'op- 
tion suivante à afficher ! 
Petite précaution. Intercaler en 2ème 
position le test suivant : 

- si position courante = position 3 alors 
position suivante = position 1 et op- 
tion suivante = option 1 . 

Cette fols, tout paraît OK. 

Nous venons de voir les 2 premiè- 
res étapes de l'analyse : d'abord la 
définition précise du but à atteindre, 
puis le découpage en actions élémen- 
taires successives, nécessaires pour 
parvenir à ce but. Maintenant que 
tout le monde a compris, nous pour- 
rons lalsser.de côté la notion d'objec- 
tifs intermédiaires qui avait pour prin- 
cipal intérêt de rendre plus éviden- 
tes les limites du découpage. Si les ex- 
pressions tarabiscotées vous Intéres- 
sent, sachez que cette savante dé- 
coupe est appelée analyse fonction- 
nelle par les Informaticiens. On l'ap- 
pelle fonctionnelle parce qu'elle sert 
à décortiquer le fonctionnement d'un 
ensemble complexe, Passons. 

Savez-vous que vous venez d'ac- 
quérir, mine de rien, toutes les notions 
indispensables pour effectuer l'ana- 
lyse d'un programme, quel qu'il soit ? 

Vous avez appris à décomposer 
de proche en proche un problème 
complexe en éléments plus simples, 
en commençant par un survol global 
à haute altitude, pour finir tout en bas, 
au niveau des détails. Retenez que 
l'analyse d'un problème se fait du 
haut vers le bas. Vous avez appris à 
identifier les entrées, et les actions élé- 
mentaires qui les utilisent pour fournir 
les sorties. Suivant les cas, il sera plus 
commode de définir d'abord les en- 
trées, ou au contraire les sorties. Peu 
Importe. Ces actions élémentaires, 
vous en avez déjà entendu parler ; 
on les appelle routines, procédures, 
sous-programmes ou modules. En ana- 
lysant rationnellement notre problème 
dans le seul souci de le décomposer 
en éléments de plus en plus simples, 



donc de plus en plus faciles à trans- 
crire en un langage de programma- 
tion, nous avons, presque en tant que 
sous-produit, fait apparaître une struc- 
ture modulaire. Bien entendu, le pro- 
gramme une fois rédigé reflétera cette 
structure. Vous venez tout simplement 
d'apprendre à faire de la program- 
mation structurée, ou programmation 
modulaire. Non seulement la program- 
mation structurée est Peaucoup plus 
facile à mettre en œuvre que toute 
autre méthode (ou aPsence de mé- 
thode), mais c'est le seul moyen de 
parvenir rapidement à un résultat fia- 
ble, en se fatiguant au minimum. Tous 
les pros vous le diraient, en informati- 
que Il faut savoir être fainéant avec 
intelligence. 

Enfin, et toujours sans en avoir l'air, 
vous venez de voir les deux fonctions 
fondamentales en programmation. 
Que fait donc un programme, en gé- 
néral ? Il reçoit des entrées, leur fait 
suPIr des traitements et s'en sert pour 
élaborer des sorties. Mais un program- 
me de plus de quelques lignes ne sau- 
rait être linéaire et à sens unique ; il 
faut des aiguillages, des répétitions, 
parfois des retours en arrière. Ces fonc- 
tions sont assurées par les tests et les 
boucles. 

Grisés par toute cette science, 
nous ne devons pas oublier que no- 
tre analyse n'est pas terminée. Si l'ana- 
lyse fonctionnelle nous permet d'ob- 
tenir une description suffisamment dé- 



taillée des opérations nécessaires pour 
pouvoir les effectuer à la main, c'est 
encore trop imprécis pour les traduire 
directement en un programme. Sou- 
venez-vous : un ordinateur c'est bête, 
il faut tout lui expliquer, et encore dans 
un langage qu'il soit capable de com- 
prendre. Je sais, le BASIC c'est fait pour 
ça, OK. Alors, dites-moi un peu com- 
ment vous allez lui expliquer, en BA- 
SIC, qu'il faut passer de la position cou- 
rante à la position suivante, et y affi- 
cher le libellé de l'option suivante en 
vidéo inverse ? 



SAVOIR COMMENT 
LA MACHINE PEUT 
LE FAIRE 

Il faut procéder à la dernière étape 
de l'analyse, appelée analyse orga- 
nique, en descendant d' un degré sup- 
plémentaire dans les détails encore 
cachés. Les actions élémentaires ré- 
sultant de ce dernier décorticage de- 
vront être compatibles avec les con- 
traintes de la machine utilisée. Par 
exemple, Inutile d'envisager des lignes 
de 80 caractères en 4 couleurs à 
l'écran, ou en BASIC une animation 
graphique sans saccades avec musi- 
que de fond en continu ; il pourra être 
nécessaire de tenir compte de la pré- 
sence ou de l'absence d'un lecteur 
de disquettes. 



Enfin, et c'est le cas de notre exem- 
ple, il faudra souvent se pencher sé- 
rieusement sur le proPlème de la re- 
présentation des données. Aïe , encore 
un gros mot. Nous avons vu que nos 
mignons petits modules, tout en étant 
indépendants, coopèrent entre eux 
(drôle de paradoxe I). Ils coopèrent 
en faisant quoi ? En échangeant des 
données, pardi I 

Et c'est quoi, les données ? Au ni- 
veau du problème à résoudre, ce sont 
les objets manipulés par les différen- 
tes actions élémentaires que nous ve- 
nons de démontrer. Exemple : l'ac- 
tion élémentaire «afficher le libellé de 
l'option 1 en position 1», c'est en fait 
une action simple d'affichage. Qui a 
dit PRINT ? Pour l'instant on parle en 
français, pas en BASIC. On affiche 
quoi ? L'objet «libellé de l'option 1». 



On l'affiche où ? A un endroit défini 
par l'objet «position 1». Vous voyez, 
c'est pas sorcier. 



Au niveau de l'ordinateur, une 
donnée c'est une adresse mémoire 
ou son contenu, rien d'autre. Dans un 
langage de programmation, ça se tra- 
duit par une constante ou une varia- 
ble, constituée d'un nom (contenant) 
et d'une valeur (contenu) : ne jamais 
confondre les deux ! L'ordinateur sait 
parfaitement relier variables ou cons- 
tantes et adresses mémoire correspon- 
dantes. 



Puisque nous revoici en terrain 
mieux connu, rappelons que constan- 
tes et variables sont de trois types : 
réel, entier ou chaîne de caractères, 
et que chaque type se fait en deux 
tailles : normale, et indicée à 1 , 2, n 
dimensions (on parle aussi dans ce cas 
de matrice ou de tableau). 

Et pour obtenir quelque chose qui 
tienne la route, Il est Impératif que les 
objets Identifiés dans la dernière étape 
de l'analyse soient représentés dans 
le programme conformément à ce 
schéma. De plus, Il faut rechercher le 
type de représentation le plus con- 
venable d'un objet donné, en fonc- 
tion des exigences du programme. S'il 
apparaît évident que l'objet «libellé 
de l'option 1 » sera une constante de 
type chaîne, par contre on ne sent 
pas bien quelle sera la manière la. plus 
opportune de représenter les objets 
«option courante» ou «option suivan- 
te», pas vrai ? 

Plutôt que de mettre la charrue 
avant les bœufs, il faut commencer 
par recenser tout ce qui , dans ce que 
nous avons analysé jusqu'à présent, 
paraît ressembler à ces fichus objets, 
ou données si vous préférez. En même 
temps, essayons de déterminer si ce 
sont des constantes ou des variables, 
et autant que possible leur type, en 
classant le tout par catégories. Voici 
ce que ça peut donner. 



- libellé de l'option 1 

- libellé de l'option 2 

- libellé de l'optii 



- libellé de l'option 
courante 

- libellé de l'option 
suivante 



type 
chaîne 



- position 1 

- position 2 

- position 3 



- position courante 

- position suivante 



type 
entier 



iriable - touche pressée type? 



constantes - option 1 
- option 2 



variables - option courante 
■option suivante 



Vous allez me dire : et alors ? Ce 
petit tableau est pourtant riche d'in- 
formations. Pour 3 genres de données, 
à savoir «libellé», «position» et «option», 
nous avons 3 constantes (sauf pour 
«option» puisque l'option 3 n'est pas 
utilisée ici) et 2 variables («courante» 
et «suivante»). Celles-ci sont reliées en- 
tre elles par une relation simple ; si l'op- 
tion courante n'est pas la N° 3, on ob- 
tient l'option suivante en ajoutant un 
Incrément (Ici 1 ) au N" de l'option cou- 
rante ; si c'est la N° 3, l'option suivante 
sera la N° 1 , nous l'avons déjà vu. De 
plus, Il y a redondance. Dans chacun 
des 3 genres, la variable «courante» 
correspond forcément à une des 3 
constantes, de même pour la varia- 
ble «suivante». Suite à la relation que 
nous venons de démontrer, la varia- 
ble «suivante» est inutile. Supprimons- 
la. Vous admettrez également qu'il y 
a une relation entre une option (qui 
correspond au déclenchement d'une 
action par appel du sous-programme 
adéquat), le libellé de cette option, 
et la position où s'affiche ce libellé : 
cette relation c'est le numéro (1 à 3). 
Avec cela nous devons pouvoir sim- 
plifier considérablement la liste, en la 
rendant plus claire. 

Il nous reste : 

- 3 variables (libellé, position et op- 
tion) pouvant prendre chacune 3 va- 
leurs qui, elles, sont constantes d'un 
bout à l'autre du programme. 

- 1 numéro qui peut prendre égale- 
ment 3 valeurs (1 , 2 ou 3). 

- la variable «touche pressée», de 
type pour l'instant inconnu. 

- la variable «courante». 

Nous pouvons supprimer égale- 
ment cette dernière, car elle ne sert 
à rien. En effet, par définition, la va- 
leur courante d ' une varia ble , c ' est sa 
valeur actuelle, celle qui reste prise 
en compte depuis sa dernière modi- 
fication et avant la prochaine. OK ? 
Donc si je veux connaître la valeur cou- 



rante de «libellé», de «position» et 
d'»option», il me suffit de connaître la 
valeur actuelle du numéro. Ce numé- 
ro est un nombre, qui ne peut évidem- 
ment avoir qu'une valeur à la fois sto- 
ckée quelque part dans la mémoire 
de l'ordinateur. En examinant le con- 
tenu de cette adresse l'ordinateur 
peut Indirectement prendre connais- 
sance de la valeur courante de nos 
trois variables. 

Ce numéro, que je me suis bien 
gardé d'appeler variable, qu'est-ce 
donc ? D'un point de vue très géné- 
ral, on peut appeler ça un pointeur. 
Mais dans le cas qui nous préoccupe, 
c'est un indice, et nos 3 variables se- 
ront les variables Indicées. Vous com- 
mencez à comprendre ce qu'on en- 
tend par représentation des don- 
nées? 

Le mode de représentation que 
nous avons choisi a été conditionné 
par la nécessité de permettre à l'or- 
dinateur de toujours savoir quelles sont 
l'optbn et la position courantes. D'au- 
tres modes de représentation sont pos- 
sibles, mais celui-ci est de loin le plus 
simple à mettre en œuvre, et en mê- 
me temps le plus souple. Si nous dési- 
rons par la suite réutiliser le programme 
pour bâtir un menu à 10 options. Il suf- 
fira de prévoir un Indice variant de 1 
à 1 0, et les 1 0 valeurs possibles de nos 
3 variables. 

Revenons à notre menu et conti- 
nuons à chercher à faire simple. Nous 
avons un Indice de contrôle variant 
de-1 à 3, et 3 variables. La première 
idée qui vient est de rentrer tout ça 
dans une seule variable à 2 indices, 
ou matrice à 2 dimensions. Le premier 
Indice est notre indice de contrôle (li- 
gnes de la matrice), le second pointe 
sur chacune des 3 variables (colon- 
nes de la matrice) ; inscrivons dans 
les cases les valeurs des variables : 



Libellé position option 



indice 

de < 
contrôle 



Pouf choque voleur de l'indice de 
contrôle > ta variable ^option» est égaie 
à cette valeur Nous pouvons donc 
la supprimer, 

Je sens que vous aUez objecter que 
chaque valeur de la vanable * post- 
tien» représente un coupte de coqf- 
données, et Jusqu'à preuve du con- 
traire ia valeur d'une vanable est uni- 
que, Certes Mais, dites-moi. dans un 
menu horizontal, tes libellés des options 
sont bien disposés sur une même li- 
gne ? Dans ce cas, I ordonnée y est 
bien constante, non ? Et dans un me- 
nu vertical r tes libellés sont bien alignés 
à gauche ? Donc ceet l'abscisse « qui 
est une constante, cette fols Par con- 
séquent, et selon le cas, les 3 valeurs 
possibles de la variable «position» re- 
présenteront r abscisse ou r ordonnée, 

Il va y avoir quelques choix à (aire 
Décidons de construire un menu ver- 
tical en laissant une ligne vierge en- 
tre 2 options consécutives (double 
Interligne) ; c'est plus Joli et puis si on 



décidait par la suite de pointer l'op- 
tion courante non plus en vidéo in- 
verse, mais par un encadré, on ne sait 
jamais. , Décidons de travailler en Mo- 
de! FixonsTabscIsse commune à 10, 
par exemple et l'ordonnée de io Ire 
option a 5, Avec le double Interligne. 
I ordonnée de la 2ème option sera 
égale à 7 et celle de la 3éme option 
à 9 Parfait. Cela nous donne donc 
pour r Indice de r option un incrément 
de 1 » et pour la position un incrément 
de 2 On devrait pouvoir résumer cela 
en une petite formule mathématique, 
Si nous appelons y r ordonnée et I l'in- 
dice courant, nous obtenons y = 3 + 
(1 * 2) ; 2 étant t J Interligne, pour i =* 1 
nous avons bien y = 5 ; pour i = 2 nous 
avons y = 7 et pour I * 3 nous avons y 
= v Résultat des courses : nous n'avons 
plus besoin de ia variable «position» ; 
vous connaissez le sketch de Fernand 
Paynaud sur les *œufs pas chers* ? Re- 
marquez bien- que si nous sommes 
parvenus à supprimer ainsi 2 variables, 
c' est suite à notre analyse ; rappelez- 
vous comme ça paraissait compliqué 



au départ. D 'où l'Intérêt de travailler 
avec méthode et de ne pas court- 
ci rculter les étapes. 

Le programme devra contenir 
sous forme de constantes, les 3 libel- 
lés du menu, Ces valeurs seront four- 
nies à une variable Indicée, respecti- 
vement pour les valeurs d'indice 1 , 2 
et 3. Appelons cette variable HbellèQ) 
i étant rindice courant (ia variable sera 
dlmenslonnéeà 3) Dans la foulée, dé- 
finissons également comme constan- 
tes l abscisse commune (x= 10}- Tor- 
donnée de départ (yO = 3) et l r Interli- 
gne (ri - 2) ; comme cela, si nous vou- 
ions modifier par la suite la présenta- 
tion de notre menu. Il n'y aura que la 
valeur des constantes à modifier. Tou- 
jours rechercher la souplesse I 

Je crois que vous commencez a 
saturer . alors rendez-vous Je mois pro- 
chain pour la suite de notre analyse 



GuyDUBUS 



OFFRE EXCEPTIONNELLE : 4 CASSETTES POUR 100 F !» 
Une cassette comprend les jeux, éducathfs ou utilitaires qui ont été pub liés da ns le numéro CPC corr espondant . 



3 ; Char d assaut - Consommation de carburant - Fonction drete 

4 : Redefcar - Carré magique - Lexique anglais/français * Maze 

7 ; Cherry Paint - Drscut - Conjugaison - Calcul - CoWitz - Double hauteur 

Référence croisée des variables basic 

B Cherry Pain» - Tokext - Numerobçje - Discothèque 

B : Cherry Paint - Creedata - Serpent Madness 

10 : Cherry Paint - Catalogue Disk Printer - Analyse - Mundïal 96 - Arbre 
généalogique. 

11 :C»l- Cherry Paint - Cassée de fane - Medor - Mufti fichier. 

12 : Cherry Pair>t - Mozart - Louisiane - Prot dise - Etik disk 

1 5 : Cherry Paiol - Gemaim» - Moniteur de disquette - Boîte à rythmes. 

1 6 ; Poker patience - Attentif - Menu 2+ 

20 : Relie! - Vision * Tri pour Bankmanager - Cat disk - Pokar. 



àlOOFIeka 



< Charge 



Je commande k*s<s) de 4 

Numéros des cassettes souhaitées: 

Si urve des cassettes était épuisée, je désire à la place 
la cassette n*: 



21 ; Monnaie - Oxydo - Demo-îris - Stradamuse - Dis - Cas 
ment des H SX Bankopen. Bankread, Bankwrite, Bankfiod, 
23 : Antkrreors - CAO 3D ~ 30 snakes - Photo-sprite * Relief - Moniteur. 
24; CAO 3D- Anti-erreurs -1M0 Bornes - Justification - Twenty 
Copy - Trames et collages - Graphofranoe - Machines, 

25 : CAO 3D- Amsrylhm - Trois dés - Générateur de menus - Symé- 
trie - Générateur de sp rites (1 ) * Pénétrer. 

26 : CAO 3D - Anti-erreurs - Catalogue - Conjugue - Tchernmis- 
land - Fenêtres symétriques - Graphiques 

27 : Création et animation de sprites - Antherr eurs - CAO 3D - Champion- 
nat - Actions. 

28 : Anti-erreurs tl - Routines machines - CAO 3D - Fichiers - Générateur 
de spertes - Catprog, 

29: Les fichiers - Anti-erreurs 2- Astronomie planétaire - CAO 
3D-Catprog 



y 1 i -r 

Nom . 



Adresse: _ 
Code postal 1 
Date: m 



VHle : 

Signature : 



Bon de commande à retourner accompagne d'un chèque a l'ordre des Editions SORACOM à l'adresse suivante 
Editions SORACOM - La Haie de Pan - 35170 BRUZ 



* Dans la Hmm das stocte «fepontbte. 

■Ne pouvant aire tenu pouf responsable de racrwminemwn des paquets postaux, nous conseillons a notre aimabte clientèle ce choisir l'anvo en recommandé' 
l: + 10F) 
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DUCHET COMPUTERS 

51. Saint-George Road CHEPSTOW - NP6 5LA 
ANGLETERRE - Tel * 44 291 625 780 




LE HACKER (version professionnelle) POW CPC 464/664/6128 

Encore une interface mincie de DUCHET Computers I 

La version 4 0 du HACKER a été acclamée par la presse 'nformatique des deux cotés de la Manche I Consultez ie9 
bancs d essai elog»eux des magazines français AMSTAR CPC et AMSTRAD CENT POUR CENT ' 
Maintenant la version 7.0 professionnelle en FRANÇAIS est disponible ! 

Pour ceuK qui n'ont pas eu I occasion de lire (es fantastiques banc* 0 essa décrivons 'ap>demeni le HACKER 

Le HACKER est une interface qui se branche en 2 secondes a l'amere d unCPC Elle est dotée d un totefWpttt* tfMJaMOflflMft ÛWÈfl âlnsi Que d un bouton 
' manque En appuyant sur le bouton vous interrompez les programmes a M moment Plusieurs rjizames de commandes 90M alors a titfc disposition pOUf 
manguier' le programme interrompu ' 

Vous travaillez directemenl en mémoire dû vous examinez modifiez aesasssmbiez éditez copie? découpez imprimez m orogramffles l 

Le loecer d'un programme vous intrigue J Appuyez sur ie bouton durant le chargement et mspeciez-ie » 

tous mer* i dans les jeux f Raioutez des vies modifiez la table des scores avec les PEEK et POKE du HACKER • 

Un logiciel hors de prix et plombe d mort n'es! pas assez perronrant selon votre goût ? Un coup de HACKER et vous lui donnez la performance désirée I 
grammeur sérieux 7 La version professionnelle 7.0 du HACKER comprend un ASSEMBLEUR intègre ' 

L'assembleur de la version 70 permet d assembler directement et immédiatement en mémoire 1 Toute erreur est immédiatement détectée ! 
Tous tes codes standard ZILOG 280 sont suuportes 

L'interface "Le HACKER' version 7.0 est le résultat de deux ans de travail et recherches par un team de super programmeurs rranco-Dntanniques. 

Le système opérationnel du HACKER est en français el réside entièrement a l'intérieur de (interface Le HACKER comprend aussi un port d extension pour «M 

d'autres périphériques 

Un large manuel détaillé et explicatif en français accompagne le HACKER 7.0, 

Il est évident que pour utiliser correctement le HACKER II taui posséder certaines connaissances informatiques et savoir différencier un 280 d ffl ÈgfftQfflfiftl 1 
Dans le cas d'un CPC 6128 spécifiez si le bus d'exiers»on de ! ordinateur est mâle ou femelle SVP 

L'interface "LE HACKER" AQCAA pf 

I 7.0 ne vaut Que *t99j WW ■ ■ pori compris 

(Pour expédition hors Europe atouter 30 FF SVP) 



FAITES CROIRE A VOTRE CPC 464 
QU'IL EST UN CPC 6128 ! 

Vous possédez un CPC 464 avec lecteur DDn et rêvez d'un CPC 6128 Plus la peine de jeter le 464 dans ia poubelle 
oti voism el de dépense' une fortune ' Il vous suffit de vous procurer la CARTE FO.DOS 
Encore une Interface miracle de DUCHET Computers I 
La Carte FO.DOS 9e branche en deux secondes a arrière ju CPC 464 I 
Aucune soudure ni connaissance en quoi que ce son ne sont requises 1 

Vous pressez un interrupteur et votre CPC 464 fonctionne en mode 6128 avec toutes les commandes du 6128 a votre dispo- 
sition F. me la hantise d'avoir a définir les variables.. Finies les frustrations des programmes qu< * - 3«wiî ave: 
les CPC 6128 ! Si vous avez certains programmes qui ne fonctionnent qu'avec un CPC 464 pas de problème pouS9ez 
I interrupteur dans l'autre sens et vous retournez en mode 464 ! 

La Carte FO.DOS offre tous les avantages des 464 et 6128 sans aucun de leurs inconvénients 1 
Pour les programmes énormes et gourmands en mémoire, rajoutez une extension mémoire DK TROMCS de 64K ou 296K 
et le bon vieux CPC 464 deviendra une machine professionnelle avec 128K ou même 320K de mémo-r? 1 
La Carte FO-DOS comporte un pori d'extension pour relier û%#m pe r <pheriquea. 
La carte FO-DOS ni accompagnée d une notice explicative en français. 

La CARTE FO.DOS ne vaut que 420,00 FF oorf cornons 

(Bour t--?ed" on hors Europe ajouter 30 FF SVP i 

Le Hacker FQDOS sont en stoc* et disponibles EXCLUSIVEMENT en vente par correspondance 
cttez DUCHET COMPUTERS ils ne sont pas en vente dans les magasins 

Envoyez vite votre commande (en français» a . 

DUCHET COMPUTERS 

51 Samt-George Road CHEPSTOW • NP6 bLA 
ANGLETERRE TA. international + 44 • 291 62 5 780 
ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le monde erher 

REGLEMENT A L'ORDRE DE DUCHET COMPUTERS " par • Mandat Poste International en Francs • Chèque personne) français bancaire ou CCP La Poste 
en Francs • EUROCHEQUE personnel en livres sterling (voua faites la conversion) • CHEQUE BANCAIRE en livres sterling compensable en Angleterre établi 
par votre banque • Cane de crédit internationale VISA EUROCARD MASTERCARD ACCESS (indiquez n° de carie et date de MM mais n'envoyez pas ia carte) 

■ HS 

Si vous êtes presse passez votre commande par téléphone EN PARLANT EN FRANÇAIS I 
Téléphonez à Caroline Jear-Pierr* ou Didier au (indicaM international) « 44 291 625 780 de 8 h a '9 n. 



Jran- 



Hovis <W 






DUCHET COMPUTERS 

51 SamuGeorge Road CHEP5TOW * NP6 5LA 
ANGLETERRE - Té* + 44 291 625 780 

EN EXCLUSIVITE : 

MATERIEL ET LOGICIELS EN FRANÇAIS POUR 
AMSTRAD/SCHNEIDER 464/664/6128 A DES PRIX 
PLANCHER I 

PUBLICATION ASSISTÉE PAR ORDINATEUR POUR CPC 61 28 

(Les CPC 4&UDD1/664 nécessitent une extension mémoire DK Trames 64Ki 

OXFORD P.A.O. 

Jjn FANTASTIQUE progiciel en FRANÇAIS pour créer fact'ernenî vos mises en page 

'La disquette 3 ' comprend 350 Koctets oe programmes 'ictoers. projeis, icônes motifs, 'tgures géométriques, bordures 
28 fontes de caractères, etc aisément redèfinissables 
Créez tacitement vos documents tontes, dessins, ♦cônes, elc 
Intégrez texie, vos copies d'écran personnelles, etc à vos documents 
Edition, copie et mouvement de Dfocs de travail entiers 
Edition ei création caractères, motifs dessins, etc a un demi pixel près. 
Zoom, effets miroir, vidéo inverse, "tète en bas" etc, 

Compatible avec SOURIS S.ren (et AMX), manettes ou clavier et avec imprimantes matricielles AMSTRAD (sauf DMPl). EPSON et compatibles. 
ë de type IBM. 

Copies imprimées multiples échelle e 100 «to, a 50 % i ES % 

Nombreuses possitoHés. de l'impression légère rapide à i impression de précision une aiguille" en très haute résolution. 
Entièrement en français. Manuel complet très détaille en trançais. Enfantin a utiliser 

OXFORD PAO. sur disquette 3" pour CPC 6128 OEA II A CE 

(ou 4B4+DD1/664 evec 12SKJ ne vaut que £ D V ? U V r r port 

(Pour expéditio n hors Europe dfOuter 10 FF SïPt_ 

BIG FLASHER Plli» de 200 Koctels de RSX et progiciels uWaires en fançais, extrêmement simples â utiliser ' 
Plus de 130 options d explora! ion. édition rechertna création, manipulation, informabon, oompantage. formatage Hiçhivage. copie, gestion d »mpn- 
mante. crtatw de posters ae 9 pages, programmation ,k Wdtm caicu tarions, copies d'écrans. ÂïUbte PEEK double POKE, \t\ de données, 
traceur, gestion oe couleurs, mput. caH. analyses etc 

Toutes tes RSX peuvent être incorporées dans des programmes personnels. La plupart des options comportent un envoi facultatif sur imprimante 
Compatible clavier, manette et souris AMX. 

Enorme manuel en français bourré d'exemples A A A AA tC 

3IG FLASHER (DISC 3 } en français pour CPC 464/664/6128 ne vaut que ZQvjlJv r r port compris 

(Envoi avion hor s Europe * 20 FF SYPt) 

TRANSFERTS CASSETTE - DISQUETTE 

NEMESIS EXPRESS 2 Le -pmgiciel de transfert universel 
Heureux propriétaire d un lecteur de disquettes, avor-vous un ou deux problèmes à trouver un logiciel de transfert ertraondinsïirs pour archiver 
votre collection de cassettes sur des disquettes ? 

Ne vous tapez plus la tète contre tes murs ! D'abord ça fait mai, et puis ça peut réveiHw les voisins I Procurez-vous NEMESIS EXPRESS 2... 

NEMEStS EXPRESS 2 comprend 109 programmes utilitaires sur les deux faces d'une disquette ? 

NEMESIS EXPRESS 2 possède un "renifleur" automatique qui vous indiquera la meilleure façon de transférer vos cassettes. 

NEMESIS EXPRESS 2 est le plus puissant logiciel de transfert K7/OISC en Grande-Bretagne 

NEMESIS EXPRESS 2 est universel, Il transfère les cassettes nouvelles, récentes ou même anciennes ! 

NEMESIS EXPRESS 2 pour 464/664/6128 est disponible en version française II est accompagné d'un manuel complet et extrêmement détaillé 

NEMESIS EXPRESS 2 (Disc r) en fiançais ne vaut que 200j00 FF port compris 

(Envoi avton hors Europe * 10 FF SVP) 

Rajoute 3 0 FF et nous joindrons les détails de transfert de 1100 (mille cent ') cassettes avec NEM E SIS EXPRESS 2 

Les produits ci-dessus sonl en stock ei disponibles EXCLUSIVEMENT en vente par correspondance 
chez DUCHET COMPUTERS. Ils ne son! pas en vente dans les magasins 

Envoyez vite votre commande len français! a : 

DUCHET COMPUTERS 

51 Samt-George Road CHEPSTOW - NP6 SLA 
ANGLETERRE - Tél. + 44 - 291 625 780 
ENVOt IMMEDIAT LE JOUR MEME PAR AVION dans le monde entier 

REGLEMENT A L'ORDRE DE ' DUCHET COMPUTERS' 1 par • Mandat Poste international en Francs • Chèque personnel français bancaire 
ou CCP en Francs • EUROCHEQUE personnel en livres sterling (vous faites la conversion) • CHEQUE BANCAIRE en kres sterling compensa 
blç en Angleterre établi par votre banque ■ Cane de crédit internatio nale VI SA EUROCARD, MASTERCARD. ACCESS rindiquez ff de carte 



et date de validité mats n envoyée pas votre carte) jHflT 



Si vous êtes presse, passez vOtr 
Téléphoner à Caroline, Jean-Pierr* ou Dttfier au (indicatif 




m&m par teieprK.m? EN &AflLANT EN FRANÇAIS ' 
ntemalional) t 44 291 625 780 de B h à 19 h 



Nous acceptons tes commandes par téléphone avec cartes de crédit. 



FORMATEUR 




Comme le titre 
l'indique, il s'agit de 
formater des disquettes 
suivant les standards : 
CPMVENDOR (169 K) 
IBM (154 K) 
EXTRA (202 K) 
DATA (178 K) 
UTILISATEUR 



Tous ces formats peuvent mar- 
cher sur l'unité de disquette A 
ou B, Les formats CPM Vendor, 
IBM et DATA étant classiques, nous ne 
donnerons pas déxplications sur eux 
mais sur EXTRA et UTILISATEUR qui sont 
particuliers. 
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Le format EXTRA est un format spécial 
qui formate votre disquette en 202 K 
avec 4 programmes dessus pour re- 
configurer le catalogue. Selon l'unité 
de travail, il faut "RUNer" DIRA ou DIRB 
pour avoir le catalogue sous 202 K. Et 
faire démarrer NORMALA ou NOR- 
MALB pour revenir sous 1 78 K. 
Le format UTILISATEUR permet à l'utili- 
sateur de formater les pistes qu'il veut 
et ceci de 0 à 80 pistes. J'ai choisi 80 
pistes pour les lecteurs 5 pouces 1 /4 
externes B qui vont, pour certains, jus- 
qu'à ce chiffre. 

Pour utiliser le mode 202 K, un utilitaire 
(GESTION) de gestion du mode 202- 
178 a été créé, 

Le déplacement et la sélection s'ef- 
fectuent avec les flèches. 
L'option mode : elle permet de travail- 
ler dans le mode 1 78 K ou 202 K par 
face. 

L'option catalogue : elle permet d'ef- 
fectuer un catalogue ou de faire dé- 
marrer un programme dans le mode 
choisi. 

L'option effacer fichier : elle permet 
d'effacer un fichier dans le mode choisi 
ou de changer le USER de travail de 
0à255. 



L'option copieur : elle permet de co- 
pier un fichier vers un mode sembla- 
ble ou différent du mode choisi. 
(Nota : à chaque copie de fichier, le 
programme va se détruire pour ga- 
gner de la place en mémoire et pren- 
dre ainsi les fichiers allant jusqu'à 42 K). 
Au BIP retentissant, Il faut changer de 
disquette et appuyer sur une touche 
pour la sauvegarde, lors de la copie. 

Chargement : 

Les programmes PORMAT.DA1 et FOR- 
MAT. DA2 crééront (après lancement 
par un RUN) les fichiers FORMAT.BI1 et 
FORMAT.BI2. Dans le listing principal 
FORMAT, il faut remplacer les espa- 
ces ou les symboles des lignes 410, 570 
et 680 par les CHRS indiqués en REM, 

Stéphane ST MARTIN 



N'OUBLIEZ PAS ! 
AMSTAR & CPC 
SORT AUSSI 
EN AOUT ! 



FORMAT 



10 ' Le formateur disquette VI. 0 (C) 1989 >LA 
20 ' "AMSTAR & CPC" Et "Stéphane Saint-Martin" >LB 
30 ' >LC 
40 MODE 0:B0RDER 0:INK 0,0: INK 1.9: i NK 2, 18: INK 3.26:0U >AU 
T fcBC00,7:0UT iBD00,33 

60 IF PEEK(4A005K>64 THEN SYMBOL AFTER 32:L0AD"FO8HAT. >NA 
BU\Î,9FFC: MEMORY 42EFF : LO AD'FORMAT . B l 2" : CALL &2FEA : POK 
E 48622. 201:KEY DEF 66.0.0,0,0 

70 ON ERROR GOTO 810 >NA 
80 MODE 2:CALL fcBDIC, 2: LOCATE l.hPRINT "Le fonateur d >RV 
isquette V 1.0 (C) 1989 \CHR»(34);" AHSTAR & CPC ";CHR 
$(34);" & Stéphane Saint-Martin ." 



90 1 

100 1 Menu p 



160 1 
170 ' 



>LJ 

npal >RB 

HO ' ,RC 

130 LOCATE 1,3:PRINT"TYPE DE FORMAT :":LOCATE 1.5.-PRINT >YC 
"1 ) CPM VENDOR (169 K)":LOCATE 1,7:PRINT"2 ) IBM (154 
K)":LOCATE 1,9:PR1NT"3 ) EXTRA (202 K)":LOCATE l,il:PRI 
NT"4 ) DATA (178 K)":LOCATE 1,13:PRINT"5 ) UTILISATEUR" 

131 LOCATE 1,15:PRINT"V0TRE CHOIX:" >EZ 
140 A*=1NKEY$ : IF A*="" THEN 140 >XR 
150 ON INSTR("12345",Ai)G0T0 260, 370, 480, 530. 630: LOCATE >KP 

2,20:PR1NT CHRi(7):G0T0 140 

>RH 



SELECTION DU LECTEUR DISQUETTE >RJ 
180 ' >RK 
190 CLS:LOCATE l.l:PRINT"Sel-ection du lecteur disquette >UN 

200 LOCATE l,5:PRINT"Lecteur •;CH8»(34);"A";CHR*(34);" )UU 
ou ";CHR$(34);"B\CHR$(34);":" 

210 A»=INKEY$:IF A$=" THEN 210 )XM 
220 ON I NSTR ( "ABab" , A* ) GOTO 230, 240,230, 240:L0CATE 1,4: >CK 
PRINT CHR$(7):G0T0 210 

230 LOCATE 21 . 5 :PR 1NT"A" : LOCATE l,8:PRINT"Appuyez sur u >CY 
ne touche pour continuer . ":CALL iBB18:REST0RE 230:FOR 
i=i2700 TO &2705:READ a:POKE i . a: NEXT : DATA i3e.i00.l32, 
i00,ia7,ic9:RETURN 

240 LOCATE 21 . 5: PRI NT"B" : LOCATE l,8:PRINT"Appuvez sur u >CC 
ne touche pour continuer . " : CALL iBBt8: RESTORE 240:F0R 
i=J<2700 TO i.2705:READ a:POKE i. a: NEXT .-DATA fc3e,i01,i32, 
i00,fca7,ic9:RETURN 

250 1 >RH 
260 ' SELECTION DU FORMAT CPM VENDOR !!59 fc) >SJ 
270 ' >RK 
280 GOSUB 190 :CLS: LOCATE 1, l:PRINT"Fonat CPM VENDOR (1 >NN 
69 K) :" 

290 LOCATE 1,2:PRINT "Inserez une disquette vierge dans >VG 

le lecteur et appuyez sur une touche. ":CALL tBB18:GÛSU 
B 790 

300 M = "AFBGCHD1E" ' CHR$ de 65.70,66,71,67,72,68,73,69 ;HB 

310 s=fc40:f=PEEK(àf»+l)*256iPEEK(àf$t2) >GL 
320 FOR p=0 TO 41: LOCATE 2,5:PRINT"Je foriatte la piste >PM 



330 CALL i2700:CALL fcA61A,p,f >UD 
340 FOR seM TO 9:CALL i2700:CALL IA600. p, s+se. 8.8000: IF >BD 

PEEK(fcBFOO)<>0 THEN 330 

350 NEXT : NEXT : PR I NT : PR I NT'TRAVA 1 L FINI !":FOR 1=0 TO 70 >WH 
0: NEXT: GOTO 80 

360 1 >RK 

370 ' SELECTION DU FORMAT IBM (154 k) )TA 

380 ' )TB 

390 GOSUB 190 :CLS: LOCATE 1. l:PRINT"Fonat IBM (154 k):" >DC 

400 LOCATE 1,2:PRINT "Inserez une disquette vierge dans >VZ 

le lecteur et appuyez sur une touche. ":CALL tBB18:G0SU 
B 790 

410 tt=* " • CHR* de 1.2,3.4.5.6.7.8,9 >PG 

413 ' CORRESPONDANCE DES CARACTERES >RJ 

415 ' CHR»(1)=C0NTR0L A . CHR*(2)=C0NTR0L B . CHR*(3)=C >TA 
ONTROL C 

416 1 CHR*(4)=C0NTR0L D , CHR$(5)=C0NTR0L E , CHRt(6)=C >TB 
ONTROL F 

417 ' CHR*(7)=C0NTR0L G . CHR*(8)=CONTR0L H , CHR*(9)=C >TC 
ONTROL I 

420 s=0:f=PEEK(àf*U)4256»PEEK(àfi+2) >EZ 
430 FOR p=0 TO 41:L0CATE 2.5:PRINT"Je foriatte la piste >PP 
: ";p 

440 CALL 12700:CALL 4A61A,p,f >WF 
450 FOR se=l TO 9:CALL i2700:CALL &A600, p,s+se. fc8000: IF >BH 

PEEK(8<BF00K>0 THEN 440 
460 NEXT : NEXT : PRI NT :PR1 NT'TRAVA IL FINI !":FOR 1=0 TO 70 >YP 
0: NEXT: GOTO 80 
470 ' 

480 ' SELECTION DU FORHAT EXTRA (202 k) 
490 1 

500 GOSUB 190 :CLS: LOCATE 1, l:PRlNT"Foriat EXTRA (202 k) >GX 

510 LOCATE 1,2:PRINT "Inserez une disquette vierge dans >UG 

le lecteur et appuyez sur une touche. ":CALL iBB18:L0CA 
TE 2,5:PRINT "Je foriatte les 41 pistes . Patientez .": 
CALL 8<2700:LECT=PEEK(i2701):CALL &60O0,LECT.0:PRINT:PRi 
NT'TRAVAIL FINI !" 

515 FOR 1=0 TO 700: NEXT: GOTO 80 >YT 



>TB 
>TC 



520 1 



>RH 



530 ' SELECTION DU FORHAT DATA (178 k) >RJ 
540 ' >RK 
550 GOSUB 190:CLS:LOCATE 1. 1 :PRlNT"Fonat DATA (178 k): >EF 

560 LOCATE 1,2:PRINT "Inserez une disquette vierge dans >VG 
le lecteur et appuyez sur une touche. ":CALL iBB18:G0SU 
B 790 

570 f»="AFBGCHDIE* ' CHR* de 193.198,194,199,195.200,19 )AJ 
6,201,197 

580 s=fcC0:f=PEEK(àf$+l)*256»PEEK(àf$*2) >GM 
590 FOR p=0 TO 41: LOCATE 2,5:PRINT"Je foriatte la piste >PX 
: ":p 

600 CALL i2700:CALL iA61A,p,f >UD 
610 FOR se=l TO 9:CALL fe2?00:CÂLL 1A6Q0, p f s+se,18000rlF >BD 

PEEX(iBFOO)<)0 THEN 600 
620 NEXT : NEXT : PR 1 NT : PR I NT'TRAVA I L FINI !":FOR 1=0 TO 70 >UM 
0: NEXT: GOTO 80 



630 ' 



>RK 
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640 ' SELECTION DU FORMAT UTILISATEUR 


>TA 


270 DATA 4AA,4A,4E0.40.40,4E0,42,422,444.44 


>GG 


650 ' 


>TB 


280 DATA 440,40,40,4E0.4A,4EE.4AA,4A,4EO,40 


>HY 


660 GOSUB 190:CLS:LOCATE 1, l:PRINT"Fomat UTILISATEUR : 


>GE 


290 DATA 40,4E0.4A.4AA,4EE.42,4E0,40,40.40 


>GN 






300 DATA 44,40,40,44.40,40.40,40,42.40 


>BA 


670 LOCATE L,2:PBINT "Insérez une disquette vierge dans >WA 


310 DATA 40,42,420,440,40,40,42,444,488,44 


>FG 


le lecteur et appuyez sur une touche. ":CALL 4BB18:G0SU 




320 DATA 420,40,40,40,40,4EE,40,4E,40,40 


■>DK 


B 790 




330 DATA 40, 40. 48, 444, 422, 44, 480, 40, 40, 4E0 


>FA 


680 f$="AFBGCHDIE" 1 CHR$ de 193,198.194.199,195,200,19 


>AL 


340 DATA 4A, 422, 444. 40,440, 40, 40, 460, 4B.4DD 


>GP 


6,201,197 




350 DATA 4BB. 48, 460, 40,40, 440, 4A.4AA.4EE.4A 


)HE 


690 s=lcC0:f=PEEKtàf$+l)+256»PEEK(àf$+2) 


)GP 


360 DATA 4A0,40,40,4C0,4A,4CC,4AA,4A,4C0,40 


>HC 


700 1NPUT"P1STE DE DEBUT (0 a 80):\DEBU 


>KP 


370 DATA 40.4E0,4A.488,488.4A,4E0,40,4O.4CO 


>GA 


710 IF DEBU>80 THEN DEBU=0 


>UJ 


380 DATA 4A,4AA,4AA,4A.4C0.40,40,4EO,48,4CC 


>HJ 


720 INPUT"P1STE DE FIN (0 a 80):", FIN 


>FM 


390 DATA 488,48,4E0,4O,40,4E0,48,4CC,488,48 


>HD 


730 IF FIN<DEBU OR FIN=DEBU THEN F ! N=DEBU+1 


>HB 


400 DATA 480,40,40,4EO,48,488,4AA,4A,4EO,40 


>GR 


740 IF F1N>80 THEN FIN=80 


>TK 


410 DATA 40,4A0,4A,4EE,4AA.4A,4A0,40,40.4EO 


>HC 


750 FOR p=DEBU TO FIN: LOCATE 2. 12:PRINT"Je foraatte la 


>YD 


420 DATA 44, 444. 444, 44, 4E0, 40, 40, 420,42.422 


>GQ 


piste : ";p 




430 DATA 4AA.4A.4E0.40,40,4A0,4A.4CC,4AA.4A 


>HM 


760 CALL 42 700: CALL 4A61A,p,f 


>UL 




>GM 


770 FOR se=l TO 9:CALL 42700:CALL 4 A600 , p , s + se , 48000 : 1 F 


>CK 


450 DATA 40,4A0,4E,4AA,4AA,4A,4A0,40,40.4E0 


>HC 


PEEK(4BF00X>0 THEN 760 




460 DATA 4A.4AA,4AA,4A,4A0, 40,40, 4E0.4A.4AA 


>HL 


780 NEXT : NEXT : PR ! NT : PR ! NT"TRAVA 1 L FINI !":FOR 1=0 TO 70 >UV 


470 DATA 4AA,4A,4£0,40,40,4E0,4A,4AA,4£E,48 


)HQ 


0:NEXT:GOTO 80 




480 DATA 480,40,40.4E0.4A,4AA,4AA,4E,4EO,420 


>JU 


790 a»="FE03C0DD660iDD6E00DD5604DD4E023A00A75FDF4AA6320 >TY 


490 DATA 40,4E0,4A.4AA,4CC,4A,4A0,40,40,4E0 


>HL 


OBFC9FE02CODD6601DD6EOODD4E023E091150A6F5791213AF12137E 




500 DATA 48,4EE.422,42,4E0,40,40,4E0,44,444 


>GB 


12133E02121323F13D20ED513A00A75F215OA6DF4DA6C93CCOO752C 




510 DATA 444,44,440,4O,40,4A0,4A.4AA,4AA.4A 


>GE 


607' : DEFI NT a-z:a=4A600:F0R t=l TO LEN(a») STEP 2:P0KE 




520 DATA 4E0,40,40,4A0,4A,4AA,4'AA,44,440,4O 


>GB 


a,VALCt"»HIDIta«,t,2)):a=a+t:HEIT 




530 DATA 40,4A0.4A,4AA.4AA,4E,4AÛ,40,40.4AO 


>HX 


800 RETURN 


>ZD 


540 DATA 4A,444,444,4A,4A0.40,40,4A0,4A,4AA 


>GH 


810 RESUME NEXT 


>Ly 


550 DATA 444, 44, 440,40, 40.4E0. 42, 444, 444, 48 


)GF 






560 DATA 4E0,40,40,4E0,48,488,488.48,4E0,40 


>GJ 






570 DATA 40, 480, 48, 444. 444. 42, 420, 40, 40, 4E0 


>GB 






580 DATA 42,422.422,42,4E0,40.40,440,4E,4EE 


>GZ 






590 DATA 444,44,440,40,40,40,40.40.40,40 


>DR 


FORMAT DA1 




600 DATA 40, 4F0, 40, 440. 42. 40. 40. 40. 40, 40 


>DU 






610 DATA 40,40,4E.422,4EE,4A.4E0.40.40.480 


)FR 


10 ' DATAS du prograaae FORMAT. Qi 1 


)U 


620 DATA 4B,4EE,4AA,4A,4L0,4O,&U,4U,4k,48b 


/GJ 


20 ' (c) 1989 AMSTAR 4 CPC 


>LB 


630 DATA 488,48,4E0.40.40,420.42.4EE,4AA,4A 


>HG 


30 1 ET STEPHANE SAINT -MARTIN 


>LC 


640 DATA 4EO,40.40.40,4E,4AA.4EE,48,4E0.40 


>GY 


40 1 


>LD 


650 DATA 40,460,48,400.488,48,480,40,40,40 


)FP 


60 FOR 1 =t9FFC TO &À2F5 : READ A$:PÛKE 1 ,VAL(A$) :NEXT I 


>WN 


660 DATA 4E,4AA,4AA,4E,420,4E0,40,48O,48,4EE 


>JE 


70 SAVE" ! FORMAT . B 1 1 " , B , 49FFC . 42F8 


>BB 


670 DATA 4AA,4A,4A0,40,40,44Û,4Û,444,444,44 


>GQ 


90 DATA 40,40,40,40,40,40,40,40,40,440 


>BC 


680 DATA 440,40,40,420,40,422,422,42,4AÛ,4E0 


>HR 


100 DATA &4. S.44.&44.&0, b40 t &Û. !iO, &A0, &A. bO 


>FA 


690 DATA 40.480,48.4AA.4CC.4A.4A0,40,40,440 


)GE 


110 DATA 40, 40. 40,40, 40, 460, 4F, 466, 466.4F 


>EE 


700 DATA 44,444,444,44,420.40.40,40,4A,4EE 


>FL 


120 DATA 460,40. 40, 440. 4E.4CC4EE, 46. 4E0, 440 


)HA 


710 DATA 4AA,4A,4A0.40.40,40,4C,4AA.4AA.4A 


>GY 


130 DATA 40,400,40,422,444.46.460,40,40.440 


>GF 


720 DATA 4A0,40,40.40.4E,4AA.4AA.4A,4E0,40 


>GU 


140 DATA 4A,444,455,4A,4D0,4Û.4Û,42Û,44,40 


>FB 


730 DATA 40,40,4E.4AA.4AA.4E,480.480.40,40 


>GA 


150 DATA 40,40.40.40,40.420.44.444,444.44 


>EG 


740 DATA 4E.4AA.4AA.4E. 420.430,40. 40. 46. 488 


>HD 


160 DATA 420,40,40,440,42,422,422,42,440,40 


>FR 


750 DATA 488.48.480.4Q.40.40.4E.488.4EE.42 


>FX 


170 DATA 40.40,4A,444,4EE,44,4AO,40.40.40 


>EB 


760 DATA 4E0,40,40,440.4E,444,444.44.460,40 


>GU 


180 DATA 44, 444, 4EE, 44. 440.40, 40, 40. 40, 40 


>EZ 


770 DATA 40,40,4A,4AA,4AA,4A,4EO,40.40.40 


>FM 


190 DATA 40, 42. 420, 440, 40, 40. 40. 40, 4EE, 40 


>EH 


780 DATA 4A,4AA.4AA.4A.440.40,40.40.4A,4AA 


>GP 


200 DATA 40,40,40,40.40,40.40,44,440.40 


;CH 


790 DATA 4AA.4E.4A0.40. 40,40, 4A.4AA. 444, 4A 


>GF 


210 DATA 40,420.42,444.444,48.480.40,40,440 


>FG 


800 DATA 4A0,40,40,40,4A,4AA,4AA,4E,420.4E0 


>HK 


220 DATA 4A, 4AA.4AA.4A, 440,40, 40, 440, 4C, 444 


>GE 


810 DATA 40, 40, 4£, 422, 444, 48, 4E0, 40, 40. 460 


>FV 


230 DATA 444,44,4EO,40,40,4E0.4A,422,4EE,48 


>GT 


820 DATA 44,488,444.44,460,40,40,440,44,444 


>GU 


240 DATA 4E0,40.40,4E0.4A,466,422.4A,4E0,40 


>GF 


830 DATA 444.44.440,40.40,400.44.422.444,44 


>GY 


250 DATA 40,480,4A.4AA.4EE,42,420,40,40,4E0 


>GW 


840 DATA 4C0.40.40. 450, 4A. 40.40. 40. 40, 40 


>DR 


260 DATA 48.4EE,422.4A,4E0,40,40,4E0,48.4EE 


>HD 


850 DATA 40,40 


>FH 
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FORMAT DA2 

10 ' DATAS du profane FORMAT. B 12 
20 1 (C) 1989 AMSTAR 4 CPC 
30 ' ET STEPHANE SAINT-MARTIN 
40 ' 

60 FOR I =42FEA TÛ 439A9:READ A):POKE l.VAL(AI) :NEXT I 
70 SAVE" ! FORMAT . B ! 2" , B , 42FEA, 49BF 
90 DATA 4F3.421.40.430,411.4A9.49.43E,445,4AE 
100 DATA fc77. fc23. îtlB. à7A. &B3, &FE, &0, fc20,«iF4, &C3 
110 DATA 458, 439, 486, 4AE, 44, 486, 475, 47, 486, 41E 
120 DATA 47,486,429,47,486.438.47,486,484,47 
130 DATA 486,480, 47. 486. 4A0. 44, 486. 481. 44, 486 
140 DATA 44,46.486.44.46,486,464.41,486.402 
150 DATA &4. Ît86 . &73, M, Î.86 . Î.S, Ïc45, &S1 . fclD 
160 DATA &BA. &4B. &46 . &1D, &47 , &45. &46, &1D, i47 , t45 
170 DATA 446,41D,447,445,446,41D,447.445,446,41D 
180 DATA 447, 445, 446, 41D, 447, 445. 446, 41D. 447.445 
190 DATA 8,46, 41D,447.445.446,41D,447, &45, &40.&1D 
200 DATA 490,8,98, 8,64, 8,41, &4.Î.4B, 8,45. 443, 8,47, 8,88 
210 DATA 49D,41,4BB.4B9,48F.445,44.4BB.475.47D 
220 DATA 461,488.47F, 8,75, 8,47.8,50, 8,56. 4A3.49A.4BB 
230 DATA 44, 49F, 431. 45. 4BB. 42,497. 431. 45, 488 
240 DATA 8,1F, &FE, 8,83, 44C.45D, 8,46, 8,88. 8,1F. 4FE. 4A3 
250 DATA 44A, 8,98.8,32.8,45, 8,98.1,66, 8,55, 8,8 A, 8,49,8,30 
260 DATA !sBB , &4F . &6D . &5D, &7B , &6A, &88. i l F . LFE , fc88 
270 DATA 4C4.4FE,488.44C.4FE.475.4BE.488,4Cl.4FE 
280 DATA 4BB. 8,48, 46D, 8,4 1,443, 4,4 7, 45D,4F1,43C,4E2 
290 DATA 48F, 444, 44, 42. 477, 42F, 45. 498,464, 441 
300 DATA 44,464,455,40,480.4AO,488,4A4,45,4A4 
310 DATA 484, 455, 4B2.47B, 444, 486, 444, 44,464, 445 
320 DATA 445,4U,443,447,498,43B,445,488,4BC,45 
330 DATA 498,466, 455, 4B3, 418, 4B4.4A4. 436, 466, 4A0 
340 DATA 4B0.48C,46C.441,41D,41A,45C.48C,4EA,494 
350 DATA 457, 4BC, 445, 477, 41D, 454, 455, 40, 443, 445 
360 DATA 488.49D.41,4BB,43A,465,440.488.42E,44 
370 DATA 45D,4B1,4BB,446,48D,457,480,490,488.418 
380 DATA 4FE.494,4B4,456,441.43D.477,42F,45,4BB 
390 DATA 45C,47D,49A,488,45Û,4FE,4BB,448,48D,4BB 
400 DATA 43A,465,4B3,489,42E,44.45D,495,43D.4E2 
410 DATA 48D,440,43D,477,42F,45,45E,47B.4«5,457 
420 DATA 47B.44D, 488, 41F, 4FE.47B, 465, 488,41F, 4FE 
430 DATA 47B,44D,488,41F.4FE,48C,4B6,490,464.46F 
440 DATA 40, 444, 445. 447, 4A0, 454. 455. 40. 47B, 445 
450 DATA 480.47F.42F,45,42.44B.445,45F.4D3,4F4 
460 DATA 4A.456,466.455,4BD.484.4A4.48F.4F1.44 
470 DATA 44E.43C,4F5,466.465.4A5.4BE,4EA,494,457 
480 DATA 48C, 4BE. 476,444, 494. 457, 498, 41B, 447, 498 
490 DATA 413,446,4AE.436,466,437,48C.47B,444,498 
500 DATA 4A0.49A,441.40.498,4A4.498.42B.445,498 
510 DATA 423,444.432,47B,445.498.iAÛ.49A,441,li0 
520 DATA 496. 4A4. 498. 42B. 447, 498, 423, 446, 432,480 



530 DATA 488,44C,4FE,47D,4BE,48C.498.4AÛ,498.413 
540 DATA 447,498,41B,44l,498,42B.443,498,423,442 
550 DATA 498,438,445,42.498,464,47,45,498,437 
560 DATA 445, 498,466, 498.466. 43B, 498. 432, 445. 498 
570 DATA 466, 498, 466, 466, 455, 4AB, 464. 47, 45, 498 
580 DATA 4A4,498.43B,445,4BB,44C,46D,441,47B,444 
590 DATA 45D,447,47B.484.4A0,490,49A,444,40,494 
600 DATA 4A4,49A.4BD,41,48C,490.47B,4BA,49A.4A3 
610 DATA 41, 498, 41B.441, 498,413, 447, 49A.4A9, 41 
620 DATA 464,468.45.4A0,49A.4AA.41,4A4,475,44E 
630 DATA 47F,414.4FB,432,466,43B,4BB,4BA,465,4AA 
640 DATA 4EA,494,457,4EA,49A.4A3.41.48C.4E.498 
650 DATA 41B, 441, 498, 42B, 443, 498, 423, 442,498.413 
660 DATA 447.49A,4B7,41.48C,4E.498.41B.441,498 
670 DATA 42B. 443, 498.423, 442,498, 413, 447, 49A.4B0 
680 DATA 41, 480,478,498,466,498.466. 42,480,498 
690 DATA 4A0.488,44C,4FE,47D,4BE,4B0,480.488.4C4 
700 DATA 4FE,444,4ED,424,44E,43D,4F4.465.4BE,488 
710 DATA 4C1.4FE,444,48D.4EA,44E,43D,4F4.465.4BE 
720 DATA 484.4B4.488,44C.4FE.475.4A4.4A3,49A,498 
730 DATA 4FB,445,46D,44E,498,466,498,466.455,4B0 
740 DATA 498.4A4,4B4,45D,483,457,498.4A4,4B4.48C 
750 DATA 488,45E,4FE.495,486,45D.4FE,48C,4BB,447 
760 DATA 46D. 457, 47B.465, 488, 41F, 4FE,47B, 465,488 
770 DATA 41F,4FE.46F,42D.45,488,466,46,45D,44F 
780 DATA 498.42B. 447, 498,423.446, 488.466. 46. 4AE 
790 DATA 443,447, 47B, 465, 488,41F, 4FE, 455, 4BE, 443 
800 DATA 455,43B.4B8.46D,46,47B,465.488,41F,4FE 
810 DATA 466, 455, 4B1, 443, 447, 476,465, 488, 41F. 4FE 
820 DATA 455,4BE.4EA.454,455,445,4A8,417,443,455 
830 DATA 43B,4B8,4C5,47D,447,47B,46B,4A0,480,488 
840 DATA 418.4FE, 484, 4A4, 466, 455, 4AA, 480,439,488 
850 DATA 46D,46,438,4B0,48E,44A,48E,44A,48E,44A 
860 DATA 48E.44A, 488.470, 46, 4B4,4A3.44A,483.4D5 
870 DATA 462.48B, 45,462, 488, 41F. 4FE,48C,43E,477 
880 DATA 449. 40, 453.444.490. 49A.4A9. 41. 47B.4BA 
890 DATA 49A,4A3,41,49A,4AA,41.47B,445,49A.4A3 
900 DATA 41.47F.414.4FB,4BB.44F.47D.473,4BB,451 
910 DATA 47D,449.4BB,45B,47D,44A,4BB,4F,47D,46B 
920 DATA 4BB,48F,45D,à6B,47B.44F,454,4E2.46,45D 
930 DATA 440, 47B.451, 464, 485, 46. 477, 468, 45, 494 
940 DATA 4A0.46F.47,4FB,47F,449.40,4E2,46D,441 
950 DATA 444,45,445,44C,4AE,4A4.444,45C,445.4A8 
960 DATA 4F5. 48C.47B.444, 45D, 443,478. 44, 45D. 447 
970 DATA 478, 484, 477,468, 45, 494, 49A, 444,40,480 
980 DATA 46D.445, 446,442.445. 48E,445,47A,445, 485 
990 DATA 445, 455, 445, 444, 445, 44F, 44F, 465, 477, 4A0 
1000 DATA 447. 441, 445, 445.4BA.46D, 445, 446, 442,445 
1010 DATA 494,445,47A,445,485,445,455,445,446,41D 
1020 DATA 451.44P,465,477,4A0,447,441.445,445,4BA 
1030 DATA 445,448,41D,44A,446,44F,44F,448,465.416 
1040 DATA 420.429.420,426,431.42C,42A,42B,465,410 
1050 DATA 416,40,417,465,465,475,468,474,470,47F 
1060 DATA 465,465,44A,444,4BA,44A,446,449,44F,44F 
1070 DATA 465, 410, 436,420, 437, 465, 426, 42A, 430, 437 
1080 DATA 424.42B,43l,465,478.465.44A.444.4BA,445 
1090 DATA 446,41D,464,458,41.443.446,4EA.432.455 
1100 DATA 4B8.464. 443,41, 488, 4E6, 41, 47F. 448, 40 
1110 DATA 42A,463.445,468,4E6,41,464,4A3,46,488 



)JW 
>MD 
>KQ 
>NG 
>LX 



<§>. 
I 



1120 DATA bÉ6,&l, l>64, &5B.&1. &4B. &45. tc68, &9D. Ici >KG 

1130 DATA S.88, MF, «<FE, ÉcBB, i48, Î.6D. &4D. Ît32, î<66, î<49 >PN 

1140 DATA fc3C, fcBB. &47. «,65, Ï.AB, &3C, 4BB. i47, fc6D. fc4D >PQ 

1150 DATA i54, t45,t45,i64,fc5B,il,fc5D,i4B,i54,t45 >ML 

1160 DATA «,45.^64. tV5B, M, i3B. i:E2. Î.8D. i88, tDl . fcl >LW 

1170 DATA &1A, &66, Î.3B, &E2, &6F. &3E, &1 , &88. &D1 , &1 >MD 

1180 DATA il6.tlA,iEA,i43.fc4F.iC7.t55,iB8,iC6.iBB >PD 

1190 DATA &55. Ï.97 , &64, &1 , «.77 , Ï.48, &0. &7B, &44. i<98 )LF 

1200 DATA «t64, «<48, «<Û, &9A . «c42, itO. fc8C, t«BB, «.75, «V7D )LU 

1210 DATA î<42, fcBB , it7F , if75 , S.46, &A3 , «i4A . «<8C, &A4 . 1*86 >PÏ 

1220 DATA i64,tl.i3B.iBB,iBA.i8D,i88.ilF,iFE,i66 >NH 

1230 DATA &SD, îtB3, &(4B, k75 , ï<43, &A7 , 498, i64 , 4.91 . M >HW 

1240 DATA &9B. hlB, i.45, &98. &66. «<96, &13, î>45.&98,&66 >NÛ 

1250 DATA fcEA ) U8,M7,fc7D,i46.fc79,i5D ) fcBC 1 i 1 5C,tiF2 >PT 

1260 DATA t6D.U7.fc4B, 8,75, &F4.&88, MF, iFE.i55.iA7 >P« 

1270 DATA fc8C,fc4F,fc45,fc44,i45,i88,i4C,iFE,i7D.iBE >PH 

1280 DATA i88,iC4.iFE.fc88,i5D,fcFE,fc86.iCl,fcFE,i37 >PR 

1290 DATA i8F,t42,t46,i83,i42.i26,i82,i42,i29,iB0 >NR 

1300 DATA i42.i23.i83.i42.iB.i83.t42.il7,i83,fc42 >HR 

1310 DATA i9F,fc88,i42,fc98,fc88,fc42,iC4,i80.i42,i75 >NX 

1320 DATA i83,i42,iBB.i88.i42,i45.iBA,ilD.i45,iBA >PL 

1330 DATA ilD,i45,iBA,ilD,fc45,fcBA,ilD,i45,iBA,ilD >PÏ 

1340 DATA i45,iBA.ilD.i45,iBA.ilD,i45.iBA,ilD,t45 >PK 

1350 DATA iBA,ilD.fc45,iBA.ilD,i45.iBA.ilD,i45,iBA >PP 

1360 DATA ilD.i45.iBA.ilD.i45.iBA.ilD.i45,iBA,ilD )PA 

1370 DATA fc45,iBA.ilD,i45.iBA.ilD,t45.iBA.ilD,i45 >PN 

1380 DATA fcBA,fclD,fc45,fcBA.ilD,fc45.iBA,ilD.i45.iBA >PT 

1390 DATA ilD,i45,iBA,ilD,t45,iBA,ilD,t45,iBA.ilD >PD 

1400 DATA i45.fcBA.fclD,i45.iBA,ilD,i45,i54.ilD.i86 >PJ 

1410 DATA fc3C,t25,fc45,i45,fc4F,fc47,i45.i45.i4A.i47 >NQ 

1420 DATA i45,i45,t4E,t47,i45,i45,i55,i47,t45,i45 >NR 

1430 DATA t49,i47,i45,i45,i54,i47,i45,i45,i48.i47 >HJ 

1440 DATA fc45,fc45.fc57,fc47.i45.i45,i4B,i47.i45,i45 >NT 

1450 DATA i56,i47,i45,i45,i51,i47,i45,i45,i5C,fc47 >NU 

1460 DATA i45.i45,i50.i47,i45,i45,i5F.i47.i45.i45 >NT 

1470 DATA i53,i47,i45,i45,i5E,i47,i45,i45,i52,i47 >NW 

1480 DATA i45.i45,t59,i47,i45.i45,i5D.t47,i45,t45 >NC 

1490 DATA fc58,i47,i45,i41,ilD.i84,i47,i45,i45.i87 >ND 

1500 DATA i47,i45.i45,i86,t47.i45.i45.iBl,i47.i45 >NE 

1510 DATA i4S,i80,i47,t45,i45,iB3,i47,i45,i45,i82 >NA 

1520 DATA i47,t45.i45.t8D,i47,t45.i45,i8C,i47.t3E >NH 

1530 DATA i77,iA6,i24,iEA,i77,il6,i25,i98,i3B,i47 >NV 

1540 DATA ilA.i77.ill,i25.i88.il7,i24,i7F.iA6.i24 >NP 

1550 DATA 4.E2 , Î.65 , Î.4C , Î.98 , î<64 . Î.46 , «,25 . «,64 . i46 , t25 >NP 

1560 DATA fc5D,fc42.fc98,fc64,fc6E.fc25,i64.i6E,i25,i7F >fJF 

1570 DATA il6,i25,il2,i43.i4F,i98,i37,i45,i98,i66 >NC 

1580 DATA i98.i66.i98.i66.i98.îi66.îi55,iB6,i7F,ill >MU 

1590 DATA i25.ilA,i90,i9A,fcEB.i24,i94,i3F,i79,iBB >PH 

1600 DATA i6F.i77,il6.i25.i65.i80,i90.i7F.ill.i25 >ND 

1610 DATA tE2,t6D,t43,tEA,t9A,iEE,i24.i5D,i41,iEA >PV 

1620 DATA i9A,iED,i24,i43,i4E.fc64,fcF2,i24.i54,iEA >PÏ 

1630 DATA i20,i88.iC9.iF9,i64.iAB.i21,i54,i8D,i45 >PB 

1640 DATA i7B,i44.i88.iDD,iF9,i88.iCA.iF9,i43,i4E >PX 

1650 DATA t64,i87,i24.iS4,iEA,i20.i88.iC9,iF9.i64 >NF 

1660 DATA iAB.i20,i54,i8D.i45,i7B,i44.i88.iDD,iF9 >PP 

1670 DATA i88.iCA,iF9.i94.i7F,iA6,i24,iE2,i85,i7B )PD 

1680 DATA i84.i9A,iFl,t24.i7F,fcll,i25,tlA,i53.i45 >NG 

1690 DATA i64.il0,i25,i9A,iEB.i24,i43,i4E,i64,fc88 >NQ 

1700 DATA i24,i54.iEA,i20,i88.iC9,iF9,i64,i45.i27 >NU 
80 



1710 DATA i54,fc4F,fc44,i7B,i44,i88,iDD,iF9.i86.iCA >PY 

1720 DATA fcF9.fc43,fc4E,i64,i9D,i24,i54,iEA,i20,i88 >PD 

1730 DATA tC9,tF9,i64,fc6F,t26,i54,i4F,i44,i7B,i44 >PN 

1740 DATA i88,iDD,iF9,i86,iCA.iF9.iA8,ilE,i7.iFB >NF 

1750 DATA t7F,ill,t25,iE2,i6D.i43,i44.i5,i45,tAE >HY 

1760 DATA t4C.iAE,i7F.iA6.i24,iE2,i65.i40,i64,i33 >PH 

1770 DATA i24,t5D.i46.i64,fcCA,fc24,i44.i5C,i45,iA8 >NC 

1780 DATA iF5.i8C.i6D.i45,i46,i42.i45.i8E.i45,i7A >PN 

1790 DATA i45,i85,i45,i55.fc45.i44,i45,i4F,i4F,i65 >NY 

1800 DATA fc77,iA0,i47.i41,i45,i45.iBA.i6D.i45,i46 >NF 

1810 DATA i42,t45,t94,t45.i7A,i45,i85,i45.i55,i45 >NV 

1820 DATA i46,ilD.i51.i4F,i65,i77,iA0,i47,fc41,i45 )NR 

1830 DATA i45,iBA,i9F,i88,i42.i98.i88.i42,il7,i83 )NV 

1840 DATA i42.i26.i82,i42.iC4.i80,i42,tB,tA,il7 >LE 

1850 DATA fc8,i4,i9,t4,i6B,i7,iC.tB,iB,iA )EC 

1B60 DATA fcl7.i8,i4,i9.i7.i6B,i7, iC.tB.il >EA 

1870 DATA iC,il7,i4,i65.i46.ilD.i6B,i7.iC.iB >JC 

1880 DATA fcl.iC,il7.i7.i65.i46,ilD.i6B,i7.iC >HX 

1890 DATA iB,i45,i58.ilD,i2.i45,i4F.i45.iDB,i65 >MB 

1900 DATA i48.i45,i45,iA3.iAA,i59.445,i44,i65,iA9 >NP 

1910 DATA i65,i59,i45,i44,iBl,i5C,i60,i44,i86,i65 >NK 

1920 DATA i46.i45,i45,iA4,i44.i48,i45,i45,iA4,iAA >NF 

1930 DATA iBA,i58,i6D,i67,i63,i67,iBl,i46,i45,i45 >NX 

1940 DATA iA4,i6C,i44,iFB.i65,i48.i45.i45,iA3,i69 >PE 

1950 DATA t48,t45,i4S,iA4,i44,iF5,i44,iC6,i65,i59 >NL 

1960 DATA i45,i44,i44,iF4.i45,i23.i45.i51.i45,iC9 >NH 

1970 DATA t65,t20,i21,i69,i70,i27,i69,i71.i77,t69 >NP 

1980 DATA i27.i20.i69.i77.i74.i69.i75.i21.i69.i74 )NZ 

1990 DATA t69,t74.i69,i74,i7C.i69,t75.i69,i20,i21 >NV 

2000 DATA t69,i27,i75,i69,fc26,i7C,i69,i77.i7D,i69 >NK 

2010 DATA i75,i69,i76,i69,i72,i69,i75,i69,i26,i27 >NA 

2020 DATA t69,i75,i69,i76.i23,i69.i75.i69,i26,i75 >NA 

2030 DATA i69,i75,i69,i74,i75,i69.i75.i69,i74.i69 )NN 

2040 DATA fc75,i69,i24,i69,i24,i69.i77,i75.i69.i76 >ND 

2050 DATA i77,i69,i20,i70,i69,i77.i69,i71.i69.i75 >NY 

2060 DATA i69,i75.i69.i23.i23,i45.i3A.ilD.i2,fc45 >HY 

2070 DATA i4F.i45,iDB,i65,i48,i45.i45.iA3.iAA.i59 >PH 

2080 DATA i45,i44,i65,iA9,i65,i59,i45,i44.iBl,i5C >NA 

209O DATA i6C.i44,i86.i65,i46.i45.i45.iA4.i44.i48 )NN 

2100 DATA i45,i45.iA4.iAA,iBA,i58,i6D,i67,t63,i67 >PF 

2110 DATA iBl,i46,i45,i45,iA4,i6C,i44,iFB.i65,i48 >NU 

2120 DATA i45,i45.iA3.i69.i48.i45,i45,iA4,i44,iF5 >NV 

2130 DATA i44,iC6,i65,i59,i45,i44,i44,iF4,i45,i2A >NU 

2140 DATA i45,i51.i45,iC9,i65.i77.i24.i69.i71.l77 >NB 

2150 DATA i69,i27,i20,i69,i74.i69,i71.i75,i69,i75 >Ny 

2160 DATA i69.i7C,i69.i74.i74.i69.i74.i74,i69,i74 >NB 

2170 DATA t69,i20,i27",i69,i74,i69,i74,i7C,i69,i75 >NR 

2180 DATA i69.i20.i21.i69.i27,i75.i69,i26.i7C,i69 >NF 

2190 DATA i77,t7D,i69,t7S,i69,i76,i69,i72,i69.t75 >HL 

2200 DATA i69.i26.i27,i69.i75.fc69.i76,i23.i69,i75 >NX 

2210 DATA i69,i26,i75.i69,i75.i69.i74.i75,i69.i75 )NG 

2220 DATA i69.i74.i69.i75.i69,i24,i69,i24.i69.i77 )NE 

2230 DATA i75,i69,i76.i77,i69.i20.i70.i69.fc77.i69 >ND 

2240 DATA i71.t69,t75,i69.i75,fc69,i22,! 1 22,i.i5.iEA >NP 

2250 DATA fclD.i45,i54,tlD,i70,i45,i4F,fc45.iDB.i65 )NX 

2260 DATA t48.i45.i45.iA3.iAA.i59.i45.i44,i65.iA9 >NP 

2270 DATA i65.i59.i45.i44.iBl.i5C.i4F.i44.i86.i65 >NG 

2280 DATA i46,i45.i45,iA4,i44,iFB,i65.i48,i45.i45 )NB 

2290 DATA iA3,i69.iBA.i58.i6D.i67.i63.i67.iBl,i46 >PG 



2300 DATA 445.445.4A4.46C,444,4F5,445,44F.445,451 >NF 

2310 DATA M5,iC6,t65,i59,M5.M4.M5,i62,M5,i5B >NF 

2320 DATA M5,tC9,i65.i76.420,i69.t26.t74,i69.474 >NE 

2330 DATA 420, 469, 475. 475. 469. 421, 423,469. 475. 47D >NA 

2340 DATA t69.t75,t74,t69.i26.i7C.t69.i7D,i74,t69 >NR 

2350 DATA 426, 470, 469, 475, 472,445, 4DE,41D,470, 445 >NZ 

2360 DATA MF. i45.iDB,i65. 148.145. i45,iA3.iAA.l59 >PP 

2370 DATA 445,444,465,4A9,465,459,445,i44,tBl,45C >NC 

2380 DATA MF.M4.i86.i65.M6.M5.M5.iA4.M4.iFB >NX 

2390 DATA 465,448,445,445,4A3,469,4BA,458,46D,467 >NF 

2400 DATA 463.467,4B1,446,445,445,4A4,46C,444,4F5 >NH 

2410 DATA 445,MF,M5,i5i,M5.iC6.i65.i59.M5.M4 >NH 

2420 DATA M5.i62.M5.i5B.i45.iC9.465,i76. 420.469 >NK 

2430 DATA 426, 474. 469, 474, 420.469. 475, i74,i69.i21 >NK 

2440 DATA 423,469. 475. 47D.i69,i75. 474. 469, 426. 47C >NH 

2450 DATA 469. 47D. 474, 469. 426. 470, 469, 475. 472. 445 >NP 

2460 DATA 468.41D, 467, 44, 48, 416, 411. 44,417.465 >KP 

2470 DATA 463,465,46,415,46.445,410.410.460.46 >KA 

2480 DATA 46C,465,474.47C,47D,47C.465.49,462,4C >MQ 

2490 DATA 4B, 46. 4A.4B.4B, 410,465. 464, 441, 41D >HT 

2500 DATA 445.445.48C.445.4B6,464.423,47C.t54,45 )MU 

2510 DATA 445.444,445,444,490,4A8,iF5,i8C,i98.464 >NJ 

2520 DATA 4l2.47C,464.4B9,423,454.4BA,47A,498,43B >PG 

2530 DATA 445.4BB.41D,465.467.498.43B,4BA.4BB,447 )PU 

2540 DATA 46D,451.490.4A.443.445,4U.418,45E.498 >HT 

2550 DATA 43B,4BB.432,4A8,4FD,498.46E,49B,46E,494 >PT 

2560 DATA 45D,449.498,43B.M5.i98,i6E.i5D,446,498 >PQ 

2570 DATA 43B,445,432,46E,498,46E,439,4FF,465.489 >PB 

2580 DATA 438,4FE,465.48D.48C.40 >XG 

GESTION 

10 ' GESTION DU HODE 178-202 >LA 

20 ' (C) 1989 "AHSTAR i CPC" >LB 

30 ' Et "Stéphane Saint-Martin" >LC 

40 ' le caractereXs'obtient avec control X >LD t 
50 KEY DEF 66.0,0,0,0:POKE 48622, 201: MODE 2:PAPER 0:PEN >GP ' 
l:INK 0.0:BORDER 0:INK 1,26:SPEED KEY 7.7:P0KE iA701.0 
:G0SUB 280:PO=1:A1=1:GOSUB 340 

60 A2»=INKEY$: IF A2$=""THEN 60 )Xg 

70 IF ASC(A2$)=242 THEN D1=-1:G0TÛ 240 >DL 

80 IF ASC(A2$)=243 THEN Dl=l :GOTO 240 >CH 

90 IF ASC(A2$)=13 THEN 110 >TG 

100 GOTO 60 )RD 
110 ON PO GOSUB 440. 460, 480.500, 510:1F P0=4 THEN GOSUB >JL 
570:G0T0 60 

120 A3*=INKEY$:IF A3$=""THEN 120 >YX 
130 IF ASCCA3»)=13 AND P=l THEN ON PO GOSUB 520.530.540 >EB 
,550.560 

140 IF ASC(A3«)=13 AND P=l THEN 60 >YY 

150 IF ASC(A3$)=240 AND P=l THEN 120 >AH 

160 IF ASC(A3$)=241 AND P=RO(PO)THEN 120 >FA 

170 IF ASC(A3J)=240 THEN GOSUB 660 >AF 

180 IF ASC(A3$)=241 THEN GOSUB 630 >AE 
190 IF ASC(A3$)=13 AND PÛ=2 THEN ON P-l GOSUB 690,700 >TA 
200 IF ASC(A3J)=13 AND P0=1 THEN ON P-l GOSUB 790,810 >TU 
210 IF ASC(A3»)=13 AND P0=3 THEN ON P-l GOSUB 740,770 >TX 

220 IF ASCCA3$)=13 AND P0=5 THEN GOSUB 850 >GB 

230 GOTO 120 ,YE 



240 A1=P0: IF Dl=-1 AND P0=1 THEN 60 >ZY 
250 IF Dl=t AND P0=5 THEN 60 >TH 
260 IF Dl=l THEN PO=POtt ELSE P0=P0-1 >CE 
270 ON Al GOSUB 390,400,410,420,430:0N PO GOSUB 340,350 >VY 
,360.370.380:GOTO 60 

280 CLS : LOCATE 25,1:PRINT" ";STRING>(31,32) :L0CATE 25.2 >UU 
:PRINT" X GESTION DU MODE 178-202 X" : LOCATE 25.3:PRI 
NT STRING»(31,32);" " : LOCATE 1.5:F0R 1=30 TO 0 STEP-1:0 
UT 4BC0O.7:0UT 4BD00.I:CALL 4BD19:NEXT:F0R 1=0 TO 35:0U 
T 4BC00,7:0UT 4BD00,1:CALL 4BD19 

290 NEXT:PRINT" *;CHR*(150) ;STRING*(t2, 154) ;CHR$(158) ;S )HH 

TR1NG»(13.154);CHR$(158);STR1NG»(19.154);CHR*(158);STRI 

NG»( 15. 154) ;CHR*(158) ;STRING»(13, 154) ;CHR$( 156) 

300 PRINT" ";CHRJ(149);" HODE 178 ":CHR»(149);" CATA >JH 

LOGUE ":CHR$(149);" EFFACER FICHIER \CHR*(149);" C 

HANGER NOM »jCHM(149) «COPIEUR* ";CHR*(149) 

310 PSI NT" ";CHKJ(147);STEiNG*U2,î54;iCnRi(i5Si;STRING ;KB 

»(13.154);CHR$(155):STRlNG$(19,154)iCHR$(155):STRING$(l 

5.154):CHR*(155);STRING$(13,154);CHR»(153):S0UND 1.100. 

5,12:DIH R$(5.4) :T( 1 ) =4:T(2)=17 :T(3) =31 : T ( 4) =0: T(5 ) =66 : 

RESTORE 330: FOR X=l TO 5 

320 FOR Y=l TO 4:READ R*(X,Y) :NEXT:NEXT:R$(3,3)=R$(3,3) >YF 
♦STR*(PEEK(4A701)) 

330 DATA" MODE 178". -iode 178,-ioïie 202.." CATALOGUE",- >FM 
catalogue. -run pgi.." EFFACER FICHIER". -effacer fichier 
,-User No,," CHANGER NOM",,,." «COPIEUR! ",-vers 178 



Ko, -vers 202 Ko, 

340 LOCATE 4,6:PRINT"X";R»<1.1);"X":RETURN >LU 

350 LOCATE 17,6:PRINT"I":R$<2, 1) : "X":RETURN )MR 

360 LOCATE 31 , 6 : PR I NT"X"" ; R* ( 3 . 1 ) ; "X* : RETURN >MP 

370 LOCATE 51,6:PRINT"i";R$(4. 1) : 'X":RETURN >MU 

380 LOCATE 66.6:PRINT"Ï";R$(5,1);"X":RETURN >MC 

390 LOCATE 4.6:PRINT R$(l,l);" ": RETURN >GQ 

400 LOCATE 17,6:PRINT R*(2,l);" ": RETURN >HY 

410 LOCATE 31.6:PRINT R*(3,l);" " : RETURN >HW 

420 LOCATE 51,6:PR1NT R»(4,l);" ":RETURN >HA 

430 LOCATE 66.6:PRINT R*(5.1);" ": RETURN >HJ 



440 R0(1)=3:P=1:L0CATE 2,7:PR1NT CHR*(149) ;STRlNGi ( 12, 3 >EW 
2);CHR$(151):F0R A=8 TO 9:L0CATE 2,A:PRINT CHR$(149);ST 
RING$(12,32);CHR»(149):NEXT:L0CATE 2,10:PRINT CHRX147) 
;STRING$(12,154);CHR*(153):L0CATE 4,B:PRINT"-iode 178": 
LOCATE 4,9:PRlNT"-iode 202" 

450 RETURN )ZE 
460 R0(2)=3:P=1:L0CATE 15,7:PRINT CHR*(157) :STRING$(13, >AA 
32);CHR»(15i):F0R A=8 TO 9:L0CATE 15,A:PRINT CHR$(149); 
STRING$(13,32);CHfit(149):NEXT:L0CATE 15,10:PRINT CHR$(1 
47) ;STRING$( 13, 154) ;CHR$(153) :LOCATE 17, 8:PRINT"-catalo 
g ue": LOCATE 17.9:PRINT"-run pgi" 

470 RETURN >ZG 
480 R0(3)=3:P=1:L0CATE 29.7:PRINT CHR*(157) ;STR1NG$(19, >QM 
32);CHR*(151):F0R A=8 TO 9:L0CATE 29,A:PRINT CHR$(149); 
STRING»(19,32);CHR»(149):NEXT:L0CATE 29,10:PRINT CHR* ( 1 
47) ;STRING$(19. 154) ;CHR$( 153) :LOCATE 31,B:PRINT"-ef face 
r fichier":LOCATE 31,9 

490 PRINT"-User No" ; PEEK (4A701 ) : RETURN >LQ 
500 R0(4)=0:RETURN >ND 
510 R0(5)=3:P=1:L0CATE 65.7:PRINT CHR$(157) ;STRING$(13, >ZH 
32);CHR»(149):F0R A=8 TO 9:L0CATE 65,A:PRINT CHRK149); 
STRING$(13,32);CHR$(149):NEXT:L0CATE 65.10:PRINT CHR$(1 
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47);STRING»U3,154);CHR»(153):F0R A=8 TQ 10:L0CATE 66, A 
:PRINT R$(5.A-6):NEXT 

520 FOR A=l 1 TO 8 STEP-1 :LOCATE 2.A:PRINT STR l NG* ( 14. 32 )EW 
) :NEXT: LOCATE 2.7:PRINT CHRK 147) ;STRING*( 12. 154) ;CHR»( 
155): RETURN 

530 FOR A=10 TO 8 STEP-1 :LOCATE 15.A:PRINT STRINGK15.3 >JH 
2) :NEXT: LOCATE 15.7:PRINT CHRt(155) ;STRING$(13. 154) ;CHR 
$( 155): RETURN 

540 FOR A=10 TO 8 STEP-1 : LOCATE 29.A:PRINT STRING»(21.3 )JC 
2):NEXT:L0CATE 29. 7:PR1NT CHR»(155) :STRING* (19, 154) ;CHR 
1(155) :8ETURH 

550 RETURN >ZF 
560 FOR A=ll TO 8 STEP-1 :LOCATE 65,A:PR1NT STRINGX15.3 >JA 
2) :NEXT: LOCATE 65.7:PRINT CHRK155) ;STRING*(13. 154) ;CHR 
$(153): RETURN 

570 SPEED KEY 30.2:LÛCATE 1. 13: INPUT'ANCIEN NOM : \A0 >YN 
$:IF AO»=""THEN 620 

580 IF LEN(A0*)<5 OR LEN(A0»)>12 THEN LOCATE 1. 13:PR1MT >DJ 
STRING»(40,32):G0T0 570 

590 LOCATE 1. 15: INPUT'NOUVEAU NOH : ",N0$:IF NO*=""THEN >ER 

620 

600 IF LEN(N0»K5 OR LEN(N0$)>12 THEN LOCATE 1.15:PR1NT >DJ 
STRING*(40.32):G0T0 590 

610 LOCATE 17.23;FRINT" Appuyer sur une tûiiûlïë pùuf là )K2 
■odiflcation... ":CALL iBB18:ùREN.àNO»,àAO»:S0UND 1.1 
00.5.12 

620 VIND0UI2.1. 80. 11, 25 : PAPERI2. 0 : CLSI2 : U 1 ND0UI2, 1,80.1 >HX 
.25: SPEED KEY 7, 7: RETURN 

630 P=P*1: IF P=2 THEN LOCATE T(P0),6:PRINT R$(P0.1);" ' >JX 
:GOTO 650 

640 LOCATE T ( PO ) . P+5 : PR I NT Ri(PO.P-l) >EZ 
650 LOCATE T(P0),Pt6:PRINTY:R*<P0.P>:"INRE™RN )Uy 
660 IF P0=5 THEN E»=CHR$( 149)ELSE E»^" " >FR 
670 P=P-1:1F P=l THEN LOCATE T(P0)-1.8:PRINT E»;R»(P0,2 )BR 
):• ": LOCATE T(P0).P+5:PRINT"X":R»IP0.P»:"X":RETURN 
680 LOCATE T(PO ) . P+7 : PR I NT R$(P0.PU) :LOCATE T(P0).P+6: >PZ 
PRINT*X":R*(PO.P»:T:RETURN 

690 IF P0=2 THEN LOCATE 1 . 11 :CAT: LOCATE 10. 24 : PR I NT"Y A >LM 
ppuyez sur une touche ":CALL &BB18:G0SUB 620:RETURN 
700 IF P0O2 THEN 740 >NV 
710 SPEED KEY 30,2:L0CATE 1. 13: INPUT'Noi du PrograMe a >AU 
lancer : ",N1»:IF N1»="THEN GOSUB 620:RETURN 
720 IF LEN(N1»)>12 THEN LOCATE 1,13:PRINT STRINGK40.32 )GG 
);STR1NG$(40,32):G0T0 700 

730 SPEED KEY 7,7:L0CATE 10. 23:PRINT"X Appuyez sur une >HX 
touche Y" :CALL iBB18:RUN NI i: RETURN 

740 SPEED KEY 30.2:L0CATE 1. 13: INPUT'Not du fichier a d >TK 
etruire : ".DO»: 1F D0$=""THEN LOCATE 1.13:PRINT STR1NG» 
(40.32) :RETURN 

750 IF LEN(D0I)<5 OR LEN(D0»))12 THEN LOCATE 1.13:PRINT >CU 

STR I NG$ ( 40, 32 ) ; STR I NG» ( 40. 32 ) : GOTO 740 
760 LOCATE 10.23:PRINT" Appuyez sur une toucheX":CALL >CB 

J>BB18:ùERA.àD0l:SPEED KEY 7,7:G0SUB 620:RETURN 
770 LOCATE 1. 13: INPUT"USER No : ",U:IF U<0 OR U>255 THE >YF 
N GOSUB 620: GOTO 770 

780 POKE !>A701,U:R»(3.3) = "-user No"+STR*(U) :LOCATE T(P >LA 
0).9:PRINT" -User No" : PEEK ( fcA70 t ) ;"Y";CHR$(8) ;" ":GOS 
UB 620: RETURN 

790 RESTORE 800:FOR F=il00 TO M00+10:READ A»:POKE F. VA >AG 



L("k"+A*):NFJ(T:CALL Î,100:L0CATE 5,6:PRINÎ'M0DE 178» :R$( 
1,1)=" MODE 178":RETURN 

800 DATA 3e,cl,le,OO,df,08.01,c9,81,c5,07 >GU 
810 RESTORE 820:F0R F=M00 TO M00+37:READ A$:A^AL("f >HK 
♦AlhPOKE F,A:NEXT:CALL 4100: LOCATE 5,6:PR1NT"H0DE 202" 
:R$(l,t)=" MODE 202": RETURN 

820 DATA ed,5b,42,be,21,0d,01,01,19,00,ed.b0.c9.28,00.0 >YH 
3,07. 00, cb.00,3f. 00, cO.OO, 10,00.01. 00.0a, Oa,20. 32. e5. 02 
,04,00,00,ff 

850 SPEED KEY 30.2:L0CATE 1.12:1NPUT" COPIE DE :X".N*: >FC 
1F N*=""THEN LOCATE 1,12:PRINT STRING*(40,32) ;STRING*(4 
0.32): SPEED KEY 7, 7: RETURN 

860 L=LEN(N*):IF L>12 OR L<1 THEN LOCATE 1,12:PRINT STR >XB 
I NG » ( 40 . 32 ) ; STR I NG$ ( 40 . 32 ) : GOTO 850 

670 SPEED KEY 7,7:S0UND 1,100.5. 12:L0CATE 17, 15:PRINT"X>ZH 
Inserez la disquette et appuyez sur une touche .Y":CALL 
4BB18: LOCATE 1.15:PRINT STR1NG* (40.32) ;STRING*(40,32) : 
VINDOy 1.80. 1.23: ON ERROR GOTO 880:OPENIN N* 
880 RESUME 890 >VG 
890 LOCATE 1, 15:PRINT<X; Inf oriations sur le fichier :X" >ZE 
: TO-PEEK ( 4A767 ) : D=PEEK ( 4A76A ) + ( PEEK (4A76B ) «256 ) : LO=PEEK 
(l<A76D) + (PEEK(«<A76E)»256):E0=PEEK(| 1 A76F) + (PEEK(« 1 A770)*2 
56): IF T0=0 THEN M*="BAS1C" 

900 IF T0=1 THEN M$='BASIC PROTEGE" >CB 
910 IF T0=2 THEN M»="B1NA1RE W >WU 
920 IF T0=6 THEN M»='ASCII" • >UX 

930 LOCATE 1.17:PRINT"TYPE ";M$:PRINT"D >DM 

EBUT ";D:PRINT"LÛNGUEUR ";LO:P 

REEXECUTION ";E0: RESTORE 990:F0R B=59264 T 

0 59330:READ J»:POKE B,VAL("t"+J») :NEXT:FOR H--63360 TO 
C3360tLEN(N$)-l 

940 POKE H.ASC(MID»(N».H-63359.1)):NEXT:P0KE 59268. L:PO >DJ 
KE 59302. L: POKE 59273, PEEK < 4A76A ): POKE 59274. PEEK (&A76B 
):POKE 59307, PEEKUA76A) :POKE 59308. PEEK (W76B ): POKE 59 
310,PEEK(4A76D):P0KE 5931 1, PEEK ( IA76E ): POKE 59313, PEEK ( 
l<A76F):P0KE 59314, PEEKUA770) 

950 POKE 59316. PEEK (J.A767) >UC 
960 DATA 21, 00.00.11. 00, 00,01, 26, 00,ED.B0,C9 )JK 
970 RESTORE 960:F0R A=55168 TO 55179:READ X»:POKE A, VAL >AF 
Ck"+X»):NEXT:RESTORE 960:FOR A=57216 TO 57227:READ X*: 
POKE A,VAL("l("tX*):NEXT:lF P=2 OR P=3 THEN POKE 55170,1 
:POKE 55172, 128:P0KE 55173.255:P0KE 57217, 128:P0KE 5721 
8, 255: POKE 57221,1 

980 IF P=4 THEN POKE 55169. 128:P0KE 55172, 128:P0KE 5517 >TC 

3,255:P0KE 57217, 128:P0KE 57218, 255-.P0KE 57220,128 

990 DATA 21,80.F7,06,00,CD,77.BC,21.00,00.CD,83,BC,CD,7 >JZ 

A,BC,CD,80,D7,CD,80,EF,CD,80,DF,3E,07,CD,5A,BB,CD,06,BB 

,21,80,F7,06,00,CD.8C,BC.21,00.00.11,00,00,01,00.00.3E, 

00,CD,98,BC,CD,8F,BC,3E ) 07,CD,5A,BB,CD,00,00 

1000 IF P=2 THEN RESTORE 1040:T=26 >BL 

1010 1F P=3 THEN RESTORE 1050:T=53 >BP 

1030 FOR B=61312 TO 61311+T: READ H»:POKE B,VAL("t"+H») : )RR 

NEXT:CALL 59264 

1040 DATA 21, 8f,ef, 11,00.01, 01, Ob.OO.ed.bO.cd. 00.01. c9. >PG 
3e,cl,le,00,df,08.0l,c9,81.c5,07 

1050 DATA 21. 8F.EF. 11, 00.01. 01, 26,00. ED,BO,CD.00.01,C9. >XD 
ed,5b,42,be,21,0d,01,01,19.00.ed,b0.c9,28.00,03.07,00.c 
b.00.3f,00.c0.00.10.00.01.00.0a.0a.20,32.e5.02,04,00,00 
.ff 
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Voici un listing plein 
d'erreurs. Ce n'est pas 
la peine d'écrire à la 
rédaction pour nous 
abreuver d'injures : 
on l'a fait exprès ! 
D'ailleurs, il y aura 
un rectificatif dès 
le mois prochain. 



Alors pourquoi publier ce genre 
de listing. Mais pour votre 
bien à tous voyons. Tout le 
monde sait que la recherche des er- 
reurs est le passe-temps du program- 
meur et qu'il n'existe pas de meilleur 
moyen pour faire entrer la syntaxe de 
ces satanés mots clés BASIC que de 
"plancher" sur un listing. 
Mais avant de vous lancer dans 
l'étude Intensive de ces quelques li- 
gnes numérotées, voici quelques in- 
formations utiles : ce programme est 
censé vous demander un nom de fi- 
chier correspondant à une page 
écran de 1 7 Ko, puis vous devez en- 
trer le mode graphique de ladite pa- 
ge. Le tout sera placé à l'adresse 
&4000 puis affiché "d'un seul coup" par 
le CALL de la ligne 110. Ensuite l'Image 
sera effacée par 500 points de cou- 
leur 0 placés au hasard sur l'écran. Puis 
CLS général pour effacer le reste. 



Les erreurs peuvent être de syntaxe, 
de structure ou bien le listing peut pré- 
senter des incohérences et même des 
choses superflues. A vous de débug- 
ger correctement. SI cette forme de 
loisir vous Intéresse, rien ne vous em- 
pêche de nous le dire, nous publie- 
rons alors d'autres listings, peut-être plus 
difficiles. Bon courage et attention aux 
pièges. 

▼ 

10 REM LISTING TRUQUE 
20 '"*•• 

30 CLEAR:'ON EFFACE L'ECRAN 

31 MODE01 :'ON PASSE EN MODE 01 
40 INPUTNOM DU FICHIER ?":NOM 
60 INPUT'MODE GRAPHIQUE", MODE- 
70 LOCATE 42 .1 : PRINT'INTRODUISEZ 

LA DK OU LA K7 ET APPUYEZ SUR 
UNE TOUCHE: 



80 IF INKEYS <>""THEN 80 

90 MODE MODE :'ON PASSE DANS 
LE MODE GRAPHIQUE DE LA PA- 
GE ECRAN 

100 LOADNOMS,&4000 

110 CALLBC06.&40 

120 REPEAT 

130 X = INT(RND(0)* 16000) 

140 POKE 0, 8(4000+X 

150 K = K+1 

160 UNTILK = 500 

170 CLS 

180 END 



N'OUBLIEZ PAS ! 
AMSTAR & CPC 
SORT AUSSI 
EN AOUT ! 
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PROGRAMMEUR 



125* IF El»=25 THEN OSÏ 




Votre programme est maintenant fin prêt, il ne vous reste plus qu'à envoyer ^Cpl 
votre œuvre à AMSTAR & CPC. Mais n'oubliez pas : * • 

• d'envoyer les programmes sur un support magnétique (disquette ou cassette) 

• de joindre un mode d'emploi détaillé manuscrit ou dactylographié, la liste complète des variables peut 
également être utile. 

Quelques cas spéciaux : les jeux. Joignez les solutions ou bien des astuces pour "visiter" l'intégralité du 
programme. 

- les programmes sources en assembleur seront publiés à condition de posséder un commentaire con- 
séquent. 

• les listings sur papier ne sont pas obligatoires puisque les programmes sont de toute façon réimpri- 
més. 

• le programme enregistré doit répondre à certaines caractéristiques. 

- la taille des commentaires mis en REM ne doit pas dépasser 35 caractères. 

- il faut éviter l'utilisation des codes de contrôles (CTRL X, CTRL I etc.) ceux-ci n'étant pas "digérés" par 
l'imprimante. 

- les listings en assembleur doivent être accompagnés des chargeurs BASIC adéquats. 

Enfin, essayez d'être original, nous croulons sous les Master-Mind, les Yam, les gestions de fichier, les 

lotos sportifs ou non. 

A bientôt dans AMSTAR & CPC. 



PARTICIPEZ A AMSTAR & CPC 



LE PROGRAMMEUR 

Nom 

Adresse complète 



- Age - 



Joindre un relevé d'identité bancaire pour paiement 
de vos piges. 



Attestation sur l'honneur 
Je soussigné 



déclare être l'auteur du programme ci-joint et ne 
l'avoir Jamais proposé à une autre revue. 



LE PROGRAMME 



Catégorie 
Taille 



□ Jeu □ Utilitaire □ Educatif 



Périphériques utilisés 

Support □ Cassette 
Comptabilité (testée) avec : 

□ 464 □ 664 □ 6128 

□ PC 15 12 □ PCW8512 

Signature 



□ Disquette 
□ PCW 8256 



s conseillons à notre clientèle de 




Valable poi 
N *CPC 464 <' 
.^SrCPC 664 H - 

8CPC 6128 



Il est difficile de taper un programme d'une revue 
sans commettre d'erreurs ! Quand les erreurs sont 
signalées (Syntax error in.... Unes does not exist in...), 
la correction est facile pulsgue la ligne est indiquée, mais 
lorsqu'au "point de vue" du CPC, le programme est cor- 
rect, il peut en être tout autrement pour le lecteur. 
Si le fonctionnement du programme ne correspond pas 
vraiment au programme original, alors il est Impossible 
de retrouver l'erreur commise, à moins de comparer les 
lignes de votre programme avec celles du journal, mais 
c'est très long et on risgue de passer sur une erreur sans 
la voir. 

C'est pourquoi ce programme a été créé; il est à utiliser 
si vous ne retrouvez pas vos erreurs. 
La frappe d'un programme de votre journal favori (CPC) 
terminée, vous faites "RUN" et là, vous corrigez toutes 
les erreurs signalées par le CPC en vous' référant au jour- 
nal pour comparer. Si malgré cela, il ne tourne toujours 
pas, suivez cette procédure : 

- sauvez votre programme en ASCII grâce à l'instruction 
: Save "nom prog" , A. 

Puis, si vous êtes sur K7, rembobinez la bande jusqu'au 
début du fichier; 

- chargez Anti-Erreurs; 

- entrez le nom de votre programme et insérez le sup- 
port où il se trouve (K7 ou disquette). 

Après quelques secondes, les numéros de ligne vont 
défiler. Vous remarquerez qu'à chaaue ligne correspond 
un code de 2 lettres sous cette forme : >XX ; c'est le code 
qui va vous permettre de savoir d'où proviennent les 
erreurs. Pour cela, il faut que vous compariez les codes 
du journal à ceux de l'écran. Si un code diffère, notez 
sur papier le numéro de ligne qui correspond à ce code. 
Continuez ainsi jusau'à la fin du listage. Le défilement 
terminé, recherchez votre programme et corrigez les lignes 
que vous avez notées en comparant avec le journal. 
Faites "RUN' et, ô miracle !,ça marche. 
Attention, lors de la frappe du programme à traîter, 
n'omettez aucun caractère car Anti-Erreurs les prend en 
compte et bien sûr, ne tapez pas les codes de contrôle. 



*#*#+#*#*#*#***#»#*#*#*#*#*#* 

#■ * * 

* ANTI - ERREURS * 



►50 ' 
► 60 



► 150 

► 16» 
i 170 



>, 210 
220 
"250 

► 240 

► 250 

► 260 
270 



* VERSION 2.0 * 

(c) CPC ît G. NOE 1987 



ON ERROR GOTO 1250 
MODE 2 
DM 6*(23) 

FOR 1=0 TO 22:READ G*:6* tI)=G*:NEXT 
ATTENTION LA LIGNE DE DATA CI -DESSOUS NE CONTIENT 
TOUTES LES LETTRES DE L'ALPHABET 1 ! '. 
DATA A,B,C,D,E,F,B,H, J,K,L,M,N,P,Q,R',T,U,V,W,X,Y,Z 
' ANTI-BUG FICHIER 
IF PEEK(HIMEM+1)=255 THEN 280 
OPENOUT "CPC" 
MErlORY HIMEM-2 
CLOSEOUT 

POKE HMEM+1,255 



28e DEFI NT M >WH 

29« ' >TB 

300 BORDER 6: II* 0,1: INK 1,16:PEN 1: PAPER e >JN 

310 MOVE 0,16: DRAW 6», 16 >TK 

32e PRINT TAB(27) "ANTI-ERREURS ":CHR*(24 >6U 
)i"Version 2.0";CHR$(24) 

33e MOVE e, 385: DRAW 65e. 385 >UJ 
34e LOCATE 24.25:PRINT"CPC REVUE DES STANDARDS AMSTRAD" >EV 

35e WINDOW 1,80,3,23 >NL 

36« tt*="Realise par Gregory NOE" >HJ 

370 F$="" >XA 

38e FOR 1=1 TO LEN(M») >PU 

39e F»=F$+t1ID*(M$,I,l) >PL 

400 LOCATE 7e-I,5:PRINT F* >\il 

410 FOR T=l TO îee >LQ 

420 NEXT T,I >EF 

43e ' >RH | 

440 ' ********************************* )RJ I 

450 ' >RK ! 

46» LOCATE 2, 1: PRINT "ENTREZ LE NOM DU FICHIER : "; >XT 

470 INPUT "",NF$ >FD 

480 IF NF*="" THEN PRINT CHR$(7):60T0 460 >6R 

490 LOCATE 2, 3: PRINT" IMPRIMANTE OU ECRAN (I/E)?" >VR 

5ee R*="":WHILE R$=" " : R*=UPPF.R$ ( INKEYI) : WEND >NK 

510 IF R$="I" THEN CA=8 : PR I NT " BRANCHEZ-LA . . . " ELSE 540 ;>XD 

520 PRINT#8,CHR*(27);"!";CHR$(2e) >AR 

53e BOTO 560 <>ZF 

54e IF R*="E" THEN CA=W:GOTO 560 >VQ 

55e GOTO 500 >ZB 



56e CLS:LOCATE 2,3:PRINT"TANT QUE LE LISTAGE N'EST PAS >QR 
TERMINE" 

576 LOCATE 2, 5:PRINT"NE PAS ARRETER LE MAGNETOPHONE OU ;>JW 



NE" 

58e LOCATE 2,7:PRINT"PAS SORTIR LA DISQUETTE" >TL 
59e LOCATE 2, 10:PRINT"PRESSEZ UNE TOUCHE POUR LA LECTUR >HH 
E" 

60e CALL StBB05 >LH 

610 ' >RH 

62e ' «««««««««<«« >RJ 

630 '< TRAITEMENT DU FICHIER > >RK 

640 ' »»»»»»»»»»»> >TA 

650 ' >TB 

660 OPENIN "!"+NF* >LF 

67e CLS:PRINT"TRAITEMENT EN COURS..." >JR 
68e IF LEN(A$)=255 THEN A*="":LINE INPUT#9,B*:60TO 1160 >YW 

690 LINE INPUTt9,B$:A$=B* >UE 

700 IF CA<>8 THEN GQSUB 1310 >VF 

710 IF INKEY (66) =0 THEN STOP >WN 

720 ' >RK 

730 ' CALCUL DE LA CLE DE CONTROLE >TA 

74e • m 

75e A=0:FLG=0 >MB 

760 FOR 1=1 TO LEN(A$) >PH 

770 L*=HID$(A*,I,1) >MU 

780 IF L$=CHR$(34) AND FLB=1 THEN FL6=0:6OTO 840 >PC 

790 IF L*=CHR$(34) AND FL6=e THEN FLG=1:60T0 84e >PD 



800 IF L*=CHR$(32) AND FLGOl THEN 


50 


>CX 


810 IF L$=CHR*(39> AND FLG=0 THEN Bl 


1 


>CA 


820 IF FLG=1 THEN 84e 




;>ND 


83e L$=UPPER*(Lf) 




>MC 


840 A=A+ASC(L$)+I 




/LU 


850 NEXT I 




>PB 


860 ' 




>TE 


870 CH$=STR*(A) 




>CC 


880 CH*=RIGHT*(CH$,LEN(CH$)-1) 




>YC 


890 L=LEN (CH$) : L2=LEN (CH*) 12 




>XA 


900 A=VAL(LEFT»(CH$,L2)) 




>TY 


910 C=INT(A/23) 




;AH 


920 P=A-(C*23) 




>LJ 


930 C*=G$(P) 




>XC 


940 A=VAL(RISHT$(CH».L-L2)) 




>WH 


950 C=INT(A/23):P=A-(C*23) 




>UT 


960 C*=C*+G$(P) 




,>TD 


970 ' 




>TG 


980 FOR 1=1 TO 6 




M. 


990 L*=MID*(A*,I,1) 




>MY 


1000 IF L$<"0" OR L*)"9"'THEN 1030 




>XJ 


1010 L1$=LI$+L» 




>XF 


1020 NEXT 




/KE 


1030 VM$="":FQR 1=1 TO LEN(A$):IF ASC(MID*(A$,I,1)K32 


>EK 


THEN VM*=VM$+" " ELSE VMt=VMt+MID$(A$, I, 1) 




1040 NEXT I : B$=VM$ 




:MW 


1050 ' 




>XJ 


1060 IF CA<>8 THEN 1070 ELSE 1090 




>YT 


1070 PRINT LI*:TAB(10) ">";C» 




>WZ 


1080 LI$="":GOTO 1160 




>ND 


1090 LI$="":PRINT#CA,LEFT$(B$,55);TABi57) ">":C* 


,-QM 


1100 IF LEN(B$)<55 THEN 1160 




>UT 


1110 FG=1 




/CG 


1120 B$=MID*(B$,56,LEN(B$)) 




>UB 


1130 PRINT#CA,LEFT$iB$,55) 




>vw 


1140 IF FG=1 AND CA<>8 THEN F6=0:6OSUB 1310: GOTO 1150 


>VB 


1150 GOTO 1100 




,'LB 


1160 IF EOF=-l THEN CLOSEIN ELSE GOTO 680 


>HD 


1170 IF CA=0 THEN CALL &.BB03: PRINT T 


AB(50) CHR$(24!;"UN 


>RJ 


E TOUCHE... ";CHR$ (24): CALL &BB05 






1180 CLS : PR I NT "MA I NTENANT RECHARGEZ 


";NF$; 11 ET CORRIGEZ 


>JC 


LES LIGNES QUE VOUS AVEZ NOTEES.." 






1190 END 




>Yk 


1200 ' 




>XF 


1210 ' ««««««<«««««« 




>XG 


1220 '< TRAITEMENTS DES ERREURS > 




>XH 


1230 ' ««««««««««««< 




>XJ 


124e ' 




>XK 


1250 IF ERR=25 THEN CLS: PRINT CHR$(7 


) ;CHR$(24) ; "FICHIER >YC 


NON ASCII";CHR$(24):END ELSE CONT 






1260 ' 




>YB 


127e ' ««««««««««««< 




>YC 


128e '< ATTENTE TOUCHE... > 




>YD 


1290 ' ««««««««««««< 




>YE 


1300 ' 




>XG 


1310 COM=COM+l:IF C0MM9 THEN CALL &BB03:PRINT TAB(50) 


;>af 


■UNE TOUCHE...": CALL &BB05:CLS:COM=1 






1320 RETURN 




>EK 




TITES 
N NONCES 



La place réservée Gtfit petites annonces en limitée En conséquence, cellet-ci passent dans leur ordre 
d'arnvee. Par contie, les petites annonces farfelue* sont sysrema^qgement restées De même, comme 
il est peu probable qu'il esisie des "généreux donateurs r de matériels ou de logiciels, les petites 
annonces faisant appel à ces philanrropes ne seront insérées que si fa place Kore le perme". 
Seranl refusées routes les annonces visant à vendre ou échange* des listes Ou copies de logiciel* non 
garants d'origine" ainsi que toule annonce «notant Ou piratage. 
En conséquence^ réfléchissez tien avant d'envoyer vos textes Les petites annonces doi- 
■■^nî impérativement nous parvenir sur \o grille (découpée au photocopiée), le texte étant 
rédige a raison d'an caractère par case. 

Enfin, toute annonce non accompagnée de timbres ne sera pas insérée. 



Cherche listing "3 dés* parties 1 et 2 Ludo- 
vic Délabre, Le Pré Latour Les Aléhons 54700 
Pont- à-Mousson 

Vends ong D7 6128 Thunder 81.. Game 
Seî&M Sp. Act (80 F) Echange 100 util + 
éduc * 150 jeux (news) Ch interface 6128 
périt TV J -P Nicolas, 22 rue des Noyers. 
Boutaincouft 7B770 Thoiry 

Vends originaux K7 et disquettes, moitié prix 
Tél. 47 49 59 45, Stépnane 92500 Rueiî 
Malmaisor, (réponse assurée) 

Vas Amstrad 6126 couleur * imprimante + 
lecteur 5 n 1/4 de 708 Ko + joystick -r housse + 
très, très nombreux logiciels Tél. 47 01 06 30 

Vends jeux K7 entre 20 et 60 F (Ûper Wolf ) 
Echange jeu* disk Rouaud Olivier, Les Bou- 
roï 74250 Viui en Saïlaz. Tél 50,36.86.61 




Philatélistes, je suis I auteur d'un programme 
de ges&on de timbres sur C PC 6126 Tél après 
20 h au 50 98 86 92 

Echange disk originaux R-Type contre Top 
Levet, Craiy Cars 2, contre The Ust Nïnja 2 
TÔ* 87 53 56 88 (demander Thomas) 

Cherche moniteur couleur ou interlace TV pour 
CPC 6128 Vends moniteur mono Recher- 
che autocollants en tous genres Contacter 
Jean- Luc au 89. 57 39 57 après 1 8 h Echange 
possible. Zanzibar s abstenir I! 

Cherche contacts pour 6128 pour échange 
programmes région Noyon, Gûmpiégne ou 
Améns Hervé Pelletier, BP 1 55, 60402 Noyon 

Vds dise 120 Ko jeux util éduc , 464 664 
6126 Dasilwa, 41, rue Plaisance 94130 
Nogem Marne Prix 100 Envûi/24 heures 
Tél 48 73 87 48 

Vends 464 cou! + manette + jeux 1600 F, 
DD\ * jeux 1200 F, DMP 2160 + papier 
&Ô0 F, crayon Dart 300 F, le tout état neuf 
Tél. 43 00 34 38. 

Vends |eux (news et anciens) ^ur CPC §128, 
trégbasprix cause B*1M Oobvet Franck, 67 
rue du Maréchal Leclerc 35800 D*nard 

Vends CPC 61 28 % DMP 2160 + 70 disks i 4 
manuels + nomb revues, t b .et Tél Antoine 
au 45 06 72 77 après 19 h 

Vds ordinateur jeux vidéo Pack + manette 4 
1i jeux t b êt, prix à débattre Tél 
23.07 89 81 

Vends ou échange logiciels et interface pour 
CPC 6128 Appefer Pascal au 45 87 10 49 

68 



Vends CPC 6128 couleur + 43 disquettes * 

2 joysticks Px 2600 F Tél 43 65 30 56, Fer» 
que! 32 bd de la Libération 94300 Vinoen- 
nes 

Désirerais progr iisting dépression sur en- 
veloppe pour 6126, Panasonic KX P10B1 et 
pour celie-ci sa compatib 94 20 0728, 

Vends CPC 61 28, clavier * MPZ * DMP 2000 
100 DKS + revues * joystick, tout 3000 F 
M Teh, tél 46 34.51 13 

Vends T09 + lecteur cassettes + disk + cass 
+ ieux + manettes + contrôleur et de nom- 
breux livres Pnx 4000 F Tél 43 82 64 67 
Val de Marne 

Vds CPC 6128 couleur (complet), t b él + 
revues + cordon K7 + boite de rgt disquettes 
avec clé 2700 F Tél 42 51 03 94 ap 19 tv 

Vds CPC 4 à 13. 15 à 17, 20 à 25 27 à 38, 
bon état, pnx â déb . + autres revues + disks 

3 ; 20 F/1 , plein de tegictels Tel 78 26 31 52 

Vous aimeriez gagner bcp dargent, honnê- 
tement et facilement Envoyez 2 timbres é 
Hamby Fabien, 4, av Pte de Vanves 75014 
Paris 

Affaire, vends lect de D7D01 , interface (neuf) 
i*O0F ♦ originaux K7, 50 à 80 F + D7 news, 
40 F à débattre Tél 71.06 50 93, après 19 h 

Vends CPC 6128 couleur + 3 joysticks +- syrv 
thé vocal t stylo optique + Multitace 2 + 50 
disk pleins :3&00 F. Tôl 40 48 16 77. 

Vends 464 codeur, 52 jx, 4 joysticks. 1 él, 
200Û F Tél. a4 32 23 37ap 20 h 

Vends Amstrad 464 monochrome # 5 jeux + 
cassette *expénmentations, démons traçons" 
+ manuel + joystick + programmes, le tout 
20OGF Paillard Olivier, Tél 99 55 9128 

Vends revues Amstrad Mag (11 à 14), CPC 
(5. 7, 1 1 .27 * HS), Amstar (5, 1 1 à 15), Heb- 
dogioeM (22 numéros), moitié pnx + Micro strad 
(3 à B, 10), 20 F pièce Tél au 66:22 24 17 

Vds VG500 * lect cas * K7 jeu - interface 
m an Réelle 2500 F, vendu 600 F. Tét 
22.83 11 23. après 18 h, 

Cherche correspondants sur 6128 (possède 
Bobo ce p, Dragon Ninjaet autres news) Tél 
(16)30.95.81 92, demander Cyni, après 1 7 h 
30 

Vends dise 3" pour 6128 remplies au choix 
de jeux util en tous genres 39 F te dise Tél 
87 09 78 28. demander Eric 



Vends |eux sur 6 1 28 ( Guenl War . Rembo 3. ) r 
la disquette pleine 25 F (disquette non four- 
nie) Tél 46 09 65 67, demander Philippe 

Vends Amstrad CPC 464 * joystick + env 80 
jeux, le tout : 1000 F Tél 64.02 00.1 1, pen- 
dant heures de bureau 

Urgent achète lecteur DDM de di&k pour CPC 
464 Prix maximum 950 F Té* 50 Ôî 18 66, 
si possible avec ooo et avec disk vierge 

Echange 10 jeux et 2 compils (1943; Opéra- 
tion Wolf, Trantor, Cybernotd } contre jeux 
assez récent. Appelez Vincent, 40 36 05 25 

Vds 664 cou! + kit téléch. + joys 40 DK + 
lect 3.5 P nu sans afim. 2500 F, ext 64 K h 
DK 400 F DMP 2000 1000 F Tél (1) 
46 36 60 86. après 18h 

Vends Amstrad 6128 moniteur couleur avec 
joystick * hou6se * nombreux jeux + revues 
Tél 53 40 15 23, heures repas (départ 47). 



Vends impnmante DMP1, très bon état, prix 
700 F à débattre Tél 82 58 42 69. 

Vends CPC 464 mono f nombreux jeux + 
manette + 6 revues (Amstar, Tilt, ,,) 1600 F, 
Tél 30 33 35 16, après 18 h 30 (David), ur- 
gent 

Vends disks originaux 12 jeux exceptionnels 
80 F Les défis d© Taïto 60 F, Beyond the 
le© Palace : 60 F Tél. 20 08.86.38 après 19 h 



Comment gagner beaucoup d'argent sans se 
fatiguer Tél. 63.95 03 63. David Sa (ornez, 15. 
rue du Cdt Chatinière. 821 00 Castetearrasm 

Vends CPC 464 couleur +- nombreux jeux + 
joystick * nombreuses revues pnx 2200 F 
Tél, 88,08.51.33 demander Régis (Alsace) 

Pour gagner un max d'argent avec un min. 
de travail. Envoyez un timbre à P. Geroudet, 
1 . rue Acquaviva 13004 Marseille 

Vends Amstrad CPC 664, très peu Utilisé + 
manuel + disquettes de jeu, logiciels Turbo 
Pascal + joystick Tél 45 78 85.20, après 18 h, 

Vends CPC 464 couleur + nb jeux + 2 joys- 
ticks + magazines 2300 F CPC 464 garan- 
ti Lemonnier Laurent, 19, rue de Veronése 
59000 Ulie 

Vends scanner Dan graphique et son logiciel 
+ notice, peu servi 500 F Tél 43.85 13 61, 



Vends jeux et utilitaires à très bas pnx S'adres- 
ser à Bnss et Cyril r Sainte-Marguerrte, 05000 
Gap, réponse assurée 



Recherche K7 teux et éducatifs pour CPC 464 
Lecomte C rue de la Belle Lande 27150 
Longchamps 

Recn pers pour création club Amstrad ds le 
Pas de Calais Ecr à M Letetz Enc, 39 rue 
Bernard PaJissy 62000 Dain ville 

Recherche "programmer en assembleur" de 
A Pmaud (PSI) » Turbo Data Base Toolbox 
+ doc Tôl 42 49 03 11, demander Bruno 

Vds Amstrad 6128 couleur, ioystick, lecteur 
5" Vortex, nbreux logiciels et revues t ma- 
nuels Prix 4000 F. Tél 60 15 18 59 

Attention ! Vds au prix de 100 F l un des disks 
originaux Cosa Nostra. 1943, F»re Forget ou 
220 F les 3 Tôl 70 31 6? 49 demander Grô- 
gory (après 18 h le lundi et vendredi, et à 16 h 
le mercredi} 

Vds moniteur ven GT65, état neuf, 6O0 F t 
port Tel 31 67 61 84 le soir â débattre 

Vends CPC 464, 1 3" I 5*1 4 D7 vierge, nbr 
soft +boïte de rangement ♦ revues * livres 
Contacter Sanchez Patnce Tôl 61 64 35 07 

Vds 6128 coul avec 2lect disk + imprimante 
+ nombreux livres f utilitaires (Mult. TT ges- 
tion) , eux Tôl 33 48 09 18 ap 18 h 

Vds disk pleines de ieux pour 6128. pr.x 35 F 
♦ t port Demander liste à Fabrice Meunier 
65, rue des Silos, La Gnve 38 Bourgom-J 

Ach ou Ech log + not AMX. Pagem Dis- 
col 5 1 ou autres util Ecrire à M R»poll Lau- 
rent, 1 1 , rue Beau Soleil 89240 Pourram 

Vends CPC 664 + ext 256 K * 100 dises 
(news) ^ botte rangement * housse + écran 
couleur Tél 48 36 4 5 22, Lebarzic Enc Pnx 
a débattre PS >foys 

Vds souns AMX Pagemaker 500 F Tas 
vrord ♦ Masiercalc * Masterfile ♦ émulation 
minitel 400 F, collection CPC 200 F Tél 
77 57 07 76 

Vends PCW 9512 ♦ bureau « chaise * ru 
ban Contacter Patnaa tél 47 84 35 90 après 
19h 5500F 

Vends MSX * 7 jeux ♦ cordon pen TV ♦ cor- 
don magnéto, pnx neuf 1900 F, vendu 900 F 
Sceaux Chauliat Frédéric, tel 46 60 49 95 

Vends revues CPC 30 à 38 Recherche lec- 
teur 5-1/4 pour CPC 464 bible CPC Auto 
Form Assembleur Echange |eux util Tél 
44 83 15 26, SO«r 

Vends synthé&seur vocal Technimusique pour 
300 F Echange news sur 6128 Tél 
47 60 23 59, demander Marc ou Yves 

Vds CPC 464 coul . peu utilisé ♦ 40 jeux * 
joystocK neuf «• housse protection davier écran 
♦ 100 revues, le tout 3000 F Tel 48 ?3 96 48 

Vends CPC 464 mono ♦ autoradio double 
lecteur « originaux + accessoires + laveur oe 
lecteur Tout pour 3500 F Tél 48 48 33 27 



Vds 464 coul + joyst, 4 60 jeux ♦ revues * 
manuel, valeur 6000 F, vendu 2600 F Char 
Iy,aprôsl9hau 47 67 48 85. 

Dément! Vends CPC 6128 couleur -f 100 jeux 
* joystick f housses + câble CL1 2900 F 
Tel 50 73 50 37 Xavier (week^nd après 18 h, 

Urgent vends jeux ongmaux sur D7 (CPC 
6128) possède Robocop, Dragon Nmja A 
partr de 90 F chacun Tôl 67 64 00 04, 

Vends revues Amstar n a 1 à 28 250 F l'en- 
semble (bon état) Baudnllard Laurent 17, rue 
de la République 453Ô0 Puiseaux 

Vends CPC 6128 coul (sept 87) très bon 
état + 180 jeux + joystick 4 b rangement le 
tout 3200 F à débattre Tél 49 80 10 06 (ap 
18h3û) 

Vends CPC 464 coul * joystick * 30 jeux 
acheté 1287 1800 F Tôl 48 89 15 23, après 
18h 

CPC 6128 empnsonné cherche listings divers 
Patnck Ventre&pue 10427 Bat 2 132, caserne 
Thoiras, 17410 St-Martn de Ré 

Cherche utilitaires tous styles avec notices, 
6128 Urgent OCP Art Studio AMX Press, 
Pagemaker Tél 68 66 99 26, 68 34 56 91 

Cause chômage vends 6128 couleur 60 jeux 
revues bureau valeur 7500 F, vendu 4500 F 
garantie 6 mois Tél 21 98 57 46 

Vends CPC 464 couleur 4 |oys + nombx jeux 
récents * livres 4 revues le tout 1800 F Tél 
34 69 31 38, le soir après 19 h 

Vends Amstrad CPC 464 couleur en excel- 
lent état ^ manuel * nombreux jeux (Bartoa- 
rian, Fruity Frank). 2500 F Tél 73 84 35 06 

Vends CPC 464 couleur + nb jeux 4 joystick 
+ revues + utilitaires, bon état (87), 3500 F 
Sutra Fabrice Talange téf 87 71 02 87 



Vends Amstrad 6128 coul ♦ housses ♦ lOC 
jeux + boîte de rangt - nbreuses revues, très 
bon état Prix 2800 F Tél 34 13 73 13 ap 
18 h 

Stop affaire • Vds adapt péntel pour 61 28 et 
464 800 F, port compris Ecr M Lafond, 
212, rue Salabery. Contrexe ville Vosges 

6 1 28 ^ DMP ^ F 1 X cherche contacts sur Tour» 
ou région (branché surtout utilitaires) Tôl 

47 64 61 64 (Maurice) 

Contact possède Dragon Nmia, Robocop Aîter 
Bumer, Turbo Cup, Batman II Off Shore 
Wamor. Discol 5 l Op Wolf (07) Nicolas, 
tel 39 12 04.75 (18 h) 

Echange progr radio et utilitaire Onc Atmos 
sur K7 Liste sur demande, M Vaude André 
4 7 av Jean-Nenn Dumant 77100 Meaux 

Recherche désespérément Boulde» Dash 2 
pour CPC 48 80 20 46. Laurent Fougues, 
94500 Champigny 2 rue Rodin 

Ach ou éch contre jeux ou util , livres et re- 
vues, bon état pour Amstrad 6128 R Lor- 
rain, Route de Fretterans 71270 Pierre de 
Bresse 

Echange jeux 6128 Tôléphonner à Benoit au 
41 67 00 74. le week-end ou à Guillaume, 
41 67 77 75, en semaine 

Achète lecteur disquettes DD 1 Faire offre au 

48 36 69 36 93700 Drancy 

Vds 6128 couleur * adaptateur TV * 2 ma- 
nettes + 25 disquettes, le tout garantie M 
89. vendu 3600 F ou au détail Tel 43 28 32 92 

Vends CPC 464 monochrome, peu servi + 
manuel Tél. 80 91 42 69, dpt Côte d'Or 

Vends CPC 464 couleur \ lecteur DDl +25 
dises + revues > joystick 2500 F Tél 
21 51 42 12 
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Vds CPC 664 monochrome è adaptateur pénte! 

♦ impnmante DMP 2000 + 40 disk (Monville 
Manor, Blood) Tél 47 68 51 82, après 18 h 

Vds Amstrad 6128 couleur * lect K7 ♦ cable 

♦ nbx logiciels « livres * revues + joystick à 
partir de 3990 F Anthony 48 86 71 75 

Vends interface TV pour CPC à télécommande. 

1 an. valeur 1400 F vendu 900 F (frais de 
port compns) Téléphonez au 83 96 50 59 
Martel Laurent, 10 rue du Docteur Fnol 54000 
Nancy. 

Recherche programme pour CPC 464 (débu 
tant), gratos Ecrire à R Bezard 17, rue 
Grande Anguille 35400 St-Mato. 

Vends CPC 61 28 Qwerty 1 2'87, mono * joys 
rick t adap TV + logiciels * jeux <100) * dis 
quenes ♦ docs, sous garantie 2800 F 
64 88 36 08 

Echange jeux sur 6128, possède news Té- 
léphoner au 68.32.68 31 ou écrire à Cousrai 
Christophe 10.ruedesLys 1 1 1 00 Narbonne 

Cherche jeu Roger Rabbit pour CPC 464 en 
très bon état lemonnier Laurent, av Rhin et 
Danube, porte 5 59370 Mons^en-Baroeul 

Vds Amstrad CPC 464 + lecteur disk DD1 * 

2 joys + 1 doubleur joys + disks é moniteur 
couleur Dardilhac Bons. 14, rue du 14 juillet 
84000 Avignon Tél 90 85 18 60 

Vends Amstrad 6128 cou! « joystick * nbrx 
jeux, pnx 3500 F 7. square de la Belle Epine 
95800 Cergy Pontoise Tél 30 32 14 41 

Vends tapis souns neufs dim 20x23 colo- 
ns rouge Pnx 20 F pièce Tél 60 83 35.33. 
demander Yann 

Vends Amstrad CPC 61 28 couleur + 26 disks 

♦ manuels, le tout 3500 F à débattre Tel 
30 38.19.07 à Enc, après 18 h 

Vends CPC 464 * 110 jeux * manette * re- 
vues. 1400 F. DD1 ♦ D7. 1300 F (très bon 
état), à débattre Tél 44 48.39 95 

Vends disks originaux Victory Road 100 F 
et Arkanoîd 2 75 F Tél 25 78 38 33. de 
mander Brah.m après 18 h 

Vends Amstrad CPC 464 couleur ♦ lecteur 
DDI1 4 16 disks é 10 cassettes + revues Pnx 
3500 F Après 18 h tél 39 71 60 29 

Vds Atan 800 XL * lec K7 * 2 joysticks . 
table graphique t revues * manuels * nbrx 
jeux Tél 39 83 91 23 Pnx 1000 F 

CPC fun club propose plans, bidouilles lis 
Ungs Pour tous renseignements, écrire a 
Hervé Collombar La Salle. 74110 Morzme 

Okimate 20 + 6128 cherche idem pour con- 
seils utilisation (ça coince () Tél 68 66 99 26 
soirouô8 34 56 91 h b Cappi 65 rue de la 
Lanterne 66000 Perpignan 



Vends 6128 cou! + 30 DK + 100 jeux (news) 

* revues (CPC) * util (Discology 5.1 J 2800 
F <a débattre) Antoine, tél 20 46 22 62 (Nord) 

Achète extension mémoire DK Tronics 64 K 
ou 256 K pour Amstrad CPC 464 Tél 
29 91 08 18 

Vends extension de mémoire 64 K pour CPC 
464 350 F Délabre M.. Le Pré Latour, Les 
Alénons, Pont a Mousson Tél 83 81 23 08 

Vends Amstrad 464, moniteur couleur * lec- 
teur de disquettes 3"1/2 4- plus de 200 jeux 
sur cassettes et disquettes, enfin tout cela à 
un pnx honnête de 2000 F. prix à débattre 
Téléphoner au 47 49 61 54 après 19 h et 
demander Grégory 

Recherche impnmante 2160 avec scanner 
Dan Les deux 1500 F Laisser un message 
sur 3615 RTEL Bal Croc d.sk Merci 

Vends CPC 464 mono * crayon optique + nbx 
jeux * revues + livre programmes ♦ manette 
Pnx 2000 F Caron Johnny, La Croix en Brie 
64 06 30 57 

Vends souns AMX pour CPC 464, 664. 6128 
Pnx 480 F Tél 87 75,35 96. demander Eric, 
après 19 h 

Vends Amstrad CPC 6128 - moniteur mono 
è nbrx jeux et util * 25 revues + 2 joys , le 
tout en très bon ôtar, 2600 F Tél 45.66.52 18. 

Vends Amstrad 464 couleur * lecteurs DD1 
etFDl * imprimante DMP1 * livres + disquet- 
tes è débattre Tél 82 83,60 16, Chaumartin 

Vds 10 jeux ohg disk (Fer et Flamme. Super 
Ski Quad ), de 70 F à 150 F Bondu Sté- 
phane. 30. rue de l'Amitié 44700 Orvault 

CLaude Le Moullec (auteur) vous crée le lo- 
giciel qui vous manque Travail à façon ra- 
pide et soigné Contact au 96 38 94.24 

Echange jeux sur CPC 6128. Envoyez vos 
listes Réponse assurée Courtin Chnstian, 23, 
rue Marcel Porief 59190 Hazebrouck 

A vendre Amstrad CPC 464 cou! + lecteur 
disk DD1 « Mirage Imagée * 90 disk ★ 50 K7 
+ kit téléchargement, valeur 10000 F, cédé à 
3500 F 65 42 69 36. après 19 h 

Vends CPC 6128 couleur * impnm Pentec ♦ 
loystick ♦ 2 boîtiers de rangem disks *• 650 
jeux et util. * revues 4500 F Tél 43 70 03 57 

Très urgent vends CPC 6128 mono * manuel 

* disks system* 10 disks + 2 livres Px 2000F 
Tè! ( l ) 60.60 34 48. le soir * week-end 

Echange plus de 60 jeux sur 464 CPC origi- 
naux Sérieux envoyer vos listes a Vandaul 
Pascal rue Em.fe Vol 7850 Ollignies 

Vends jeux ongmau» sur CPC disk et K7. liste 
sur demande François J -Marie, Montlouis, 
18160 Ligmères 
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EDITIONS SORACOM 



SORACOM OUVRE SON SERVICE LECTEUR VPC 

Afin de satisfaire plus directement ses lecteurs, SORACOM ouvre son propre service de vente par correspondance 




Pour tous les 
passionnés 
d'ondes courtes, 
codage, 
décodage, 
réception/ 
émission, 
interfaces. 

Disquette 250 F fNlle édition) 



Environnement 
matériel, commande 
de CPM 3 0. le 
BDOS, le BIOS 
fichiers binaires 
éditeur de 
disquettes, 
désassembleur Z80. 
graphismes, 
caractère à la 
loupe. 





Nombreuses 
routines utilitaires 
de programmation 
utilitaires 
graphiques la 
gestion de fichiers, 
utilitaires 
imprimantes 



110F 



fNlle édition) 



«S* z 

i nu 



119F 



Disquette. 150 F 



BOULDEUR : un jeu inspiré par qui-vous- 
savez mais qui propose de véritables énig- 
mes et un éditeur de tableaux en prime 
(Arcade) 




80 F 



COMPILATION 
CPC 
n 2 

(du CPC n" 5 
ou n* 8} 



COMPILATION 
CPC 

hr i 

(du CPC n° I 
ou n° 4) 




80 F 



Du lycéen à lïngénleur 



Ce logiciel permet l'étude de fonctions, de suites 
numériques et la résolution d équations. 



MULTICOURBES III 

de Sylvain VIEUJOT 



Quelques options disponibles ; 



• Etude de toutes les fonctions à 2, 3 et 4 variables. 

• Etude de suites arithmétiques, géométriques ou 
définies par une expression 

• Résolution d équations trigonométrlques sur le cercle 

• Possibilité de tracer dans 2 modes graphiques et 
dans un repère quelconque, avec une échelle variable. 

• Variations, calcul des maximums et minimums, et 
des points d intersection aux axes de la fonction 

• Calcul de dérivées, d'intégrcie? 

• Tracé de tangentes tracé et étude des fonctions 
réciproques 

• Courbes en coordonnées polaires. 

• Sauvegarde et impression des graphiques réalisés 
Disponible sur disquette y pouf CPC 4M 664 et 61 28. 
au prix ae 230 F Réf. ■ BEPO01 
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POUR FAIRE RIMER 



EDUCATION ET RECREATION, 



MULTICOURS UN CHOIX DE 3 EDUCATIFS + 1 JEU 



MULTICOURS 



français ; amélioration àc la vitesse de lecture et de te compréhension du 
■ ext? autour d'ejtefciceit vajfîéh et amusants. 

Sciences naturelles ; une initiation à h démarche scientiflcfue et aux Ipds 
bkûlcrgiques du mondie vivant abordée avec de* mots simple 
Géographie : découverte de la variée des milieux naturels et initiation à 
J Interprétation de cartes, graphiques et autres données climatique 
Jeu : un jeu divertissant à découvrir 

Réf. GU 557064 



245,00 F 



MULTICOURS | 



Français : test de performance de 
li'ctu re suivie, qualité de compréhcr- 
sion r appréciation du sens et dj st\ !r 
tf?C& i ani; pédagogie activé 
Sciences naturelles ; une Lnitiatitm 
a la biologie humaine apprenant à 
observer et a interpréter les compor- 
tements de notre corps 

Géographie : anaJyse de cartes et tnterprtiatjon de diverses données si dis- 
tiques pour une étude de la ïrance de 1989 répons, villes, institutions, vie 
économique industriels 
Jeu j 1 jeudtveTtiswnf ad^cvavnr 
Réf. MU 557124 



245,00 F 




MULTICOURS $tg 



Français : maîtrise de la lecture avec 
Le support d'un tevte riche el une va- 
tiété d'enerdces de comprenez- ..-r- 
d 'analyse et de J ogique 
Sciences naturelles \ décovn i r ■ ■■ 
de la Terre *i de son histoire i ira- 
vers les ^çrar.d^ phÉncnrièoes gë^k> 
jpques abordes gràc* à des te*U*s de connJi-,sjft, » d^ animations 
Géographie : tout sLir l'Europe, ses états, ses institutions ses réussites,. < 
alliances , le mode d empic» pc"ur1W2. 
feu : Heu dherb^nt à découvrir Rèf, G U 557104 




245,00 F 



II 



MULTICOURS 



Français ! perf^tintinemenï de U 
U'cture regroupa ni lecture et recher- 
che, anticipation mais aussi interpré- 
tation. 

Sciences naturelles i irtfàWfctofl i la 
Hjblegie animale et végétale à travers 
^alimentation., le système de respira^ 
ïidi>, 1* mode de reproductif ti uu Jl ioco motion. 

Géographie ; Voyage sur 2 continents proposant une découverte du quoti- 
dien, des forceb et faiblesses de r Amérique latine et de l'Afrique, 
Jeu;] ieu divertissant à découvrir Rêl : GU 557084 



245,00 F 
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NE PARTEZ PAS EN VACANCES 
sans protéger votre ordinateur 
et ranger vos disquettes. 



Offre valable dans la limite du stock disponible 
OFFRE EXCEPTIONNELLE 



ISUPERBE hvuz^B 



ém® &®&h 



s 



Lot moniteur + clavier 



90 F 



! • Prix habituel 



219 F 



4 ^â j • Prix promotionnel j y 
+ 20 F ftiri et emballage — 



120 F 



-*mk Uniquement pour 
— ^ AMSTRAD 464 couleur 
et AMSTRAD 664 couleur 




• Prix promotionnel 



+ 10 F 
port et emballage 
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Logiciel orienté sur la 
reconnaissance de la graphie des 
lettres et des nombres. 

- Apprentissage des lettres de 
l'alphabet avec image associée a 
chaque lettre Apprentissage des 
nombre* de 1 
à9 



MC 15 CPC disk 




DES LOGICIELS 
NIVEAU MATERNELLE ET PRIMAIRE 



(symétries sur repère orthonormé 
avec possibilité de construction de 
figures . ) - Opération? verticales sur 
des entiers (avec retenue) - addition - 
soustraction - multiplication - 
division. 

- Fractions amples 

- sur des parties de rectangles, de 
camemberts - fractions équivalentes - 
numérateurs d'une traction... 
-Calcules d'aires; 

- cairé - rectangle. . , avec explication 
des formules en cas d'erreur 

- Calcul de volume 

- Symétrie (centrale et axiale) 

- Suites proportionnelles 

- Pourcentages 



200 F 



- Reconstituer des séries d'images - 
Reconstituer des mots - Reconstituer 
des senes de nombres de 1 à 6 
L'enfant exerce son esprit d'analyse 
et découvre les règles qui régiront 
ses premiers apprentissages c^mme 
l'organisation du travail écrit sur une 
page, le sens de la lecture et de 
1 écriture, le retour à la ligne... 



MC 18CPC disk 



200 F 




Ce logiciel propose plusieurs points 
d exercice de niveau cours 
élémentaire 

- Ranger des nombres en ordre 
croissant et décroissant - Comparer 
des nombres (supérieur inteneur,} 
sommes produits - Compter pas à 
pas. i 1.2, 5 10. 20, 40...) -Calculs 
sur les opérât ions élémentaires 
(tableau de double entrée) - Compter 
la monnaie - Lire et afficher l'heure - 
^ placer une tortue (exécuter et 
retrouver) - Symétries axiales. 



MC 01 CPC disk 
MC210CPC K7 



200 F 
170F 



Ce logiciel comprend des modules 
sur les calculs (opérations, 
tractons . ) ou la géométrie 



MC 02 CPC disk 
MC 200 CPC K7 



250 F 
200 F 



fRANÇAl$-SQNS. 



1 - Comploter des mots avec les sons 
ou syllabes qui conviennent avec 
choix entre deux sons ressemblant^ 

2 - Compléter des phrases ayxcd^ 
mots a choisir dans des séries de 
même consonance 

3 - belechonner dans des phrases i«^s 
mots ayant les sons indiques 

Une série de sons a wc niveau de 
difficulté progressif peuvent 
convenir aux élevés des classes de 
CP pour l'option 1 et aux élèves de 
CEI CE2 pour les options 2 et 3. 

MC 12 CPC disk 
MC 208 CPC K7 




ORTHO-CM. 



Ce logiciel permet d'apprendre les 
règles principales de l'orthographe 
en complétant des phrases (19 Kjg >> 
ex : à ou a, on ou ont | 
A chaque faute, une explication est 
donnée à l'élève sous la forme d'une 
question de ru m placement qui lui 
permettra de comprendre son erreur 
A tout moment, cette règle pourra 
être al.rur.LV pour explication. 



MC 1 1 CPC disk 



200F 




1 - Dictée : cette option permet à un 
instituteur ou à un parent de dicter 
un texte a 1 élève avec correction 
automatique après une ou deux 
fautes sur chaque lettre (au cho»> ) et 
avec comptage des fautes. 

1 n fichier niveau CMl CM2 dictées 
est fourni avec ce logiciel mais une 
option de création permet de créer 
des dictées de tout niveau 

Une option lecture permet également 
de lire les textes de ce fichier 

2 - Participes passés avec ETRE et 
AVOIR : cette option permet 
d'apprendre à accorder les participes 
passés avec les verbes ETRE et/ou 
AVOIR avec sujet, complément 
d'objet direct ou indirect, masculin 
ou féminin, singulier ou pluriel 

A chaque faute, une explication du 
corrige sera visualisée 
Un fichier de phrases est égale ment 
fourni, ainsi qu'une optiu.n 
permettant la création de ses propres 
fichiers d'exercices. 

3 - Conjugaison ce module permet à 
l'eléve d'aprendre à conjuguer les 
verbes des 3 groupes aux temps de 
son choix (imparfait, futur antérieur, 
présent... ) sous la forme de phrases 
a compléter 



A chaque faute, une explication 
visualisée et le comptage de points 
apparaîtra à la fin de l'exercice. 



MC 13 CPC disk 



200 F 




Cours et exercice suivant niveau ; 
Le Soleil - La Terre - Les points 
cardinaux - Les saisons - Le relief - 
Les cours d'eau et les mers en France 
- Les ports en France - Les grandes 
villes - Les pavs frontaliers. 



MC 19 CPC disk 



200 F 



Pour tous les logiciels de lo série MC, envoi ordinaire par poste : 10 F par logiciel. 
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DES LOGICIELS NIVEAU SECONDAIRE 



GRAMMAIM-65. 



Ce logiciel traite des notions de fonctions 
et nature des groupes de mots 
constituant la phrase :<ui-.( \ erbe, 
complément ) Apprentissage avec 
rappel do cours adapte a chaque 
situation Révision générale Les 
220 phrases contenues dans ce logiael 
sont reparties en 2 niveaux et couvrent 
plus de 1400 questions Au niveau 1, 
l'utilisateur peut commencer en CMZ 



MC 17CPC disk 



200F 



MATHS-6. 

ÈÙÙÈ^^^-^^^^^. :. 

- Opérations - > / Fractions - Calculs 
d'aires - Calculs sur les relatifs - 
Pourcentages avec graphismes - Suites 
pruporti-mnelle* avec graphisme - 
Svmétnes orthogonales 



MC 03 CPC disk 
MC 201 CPC K7 



200 F 
170 F 



MATHS-Sé 



r.*vy ■ 



Fractions • Nombres relatif - V • -«lûmes - 
Echelles et vitesses. - Angle* Symétries 
El 'n traies 



MC21 CPC disk 
MC 202 CPC K7 



200 F 
170 F 



MATS-54. 



Multiple* et divivaurs d'1 entier - 
\ ombre* premiers - Puissance* d'un 

Mil r naturel - Décompost ion d'1 entier 
Mutd - IH. CD et P l'CM Calculs 
algébriques - Rationnels (simplifications 
>•! ip&atlOflS âfi ftvctiftt?) - Equations et 
inéquations dans R 



MC 04 CPC 



200 F 



MATHS-3. 

■ S8 

Construciiv-ris de vecteurs - Calculs sur 
■- droites *vstëmes linoaire> 2.2 - 



Régionnement du plan Calculs sur les 
racines carrées - Notions de 
trigonométrie 



MC 05 CPC disk 



200 F 



EQUATIONS. 



Equations du second degré avec 
interprétation graphique - Systèmes 
linéaires 2,2 - Systèmes linéaires a n 
équations p inconnues Un.n<S > 



MC 06 CPC disk 
MC 205 CPC K7 



200 F 
170 F 



MATHS SECOND CYCU-J. 




Cqua lions du second degré avec 
interprétation graphique - Courbe Y - f(x) 
avec choix du repère et des unités - 
Intégrales par la met ru vie des rectangles 
avec interprétation graphique et 
pBfCka* Suites récurrentes avec 
graphème Fonctions réciproques 

MC 07 CPC disk 
MC 206 CPC K7 




MATHS SECOND CYCUE-2. 



(mages par applicaUon aifine - Courbes 
avec ont ions (dont hardeopy) - Courbes 
superposées - Courbes définies par 
morceaux - Familles de courbes - 
Courbes planes (cinématique) - Courbes 
défîmes par une intégrale 



MC 08 CPC di»lt 


m 


MC 207 CPC K7 





1 GEOMETRIE PLANE. 



Deu* logiciels accompagnés 
d'explications détaillées 
- Un utilitaire de dessin géométrique 
pour tracer points, droites, segments et 
cercles le classique «TRACER à la régie 
ou au compas», accompagné de 



commentaires et de tous les résultats de 
géométrie analytique Une figure peut 
être sauvegardée ou imprimée 
Huit exemples classiques de 
constructions géométriques 
accompagnent cet utilitaire (bissectrices 
tangentes.) 

- Une étude par le dessin des 
TRANSFORMATIONS 
GEOMETRIQUES (translations, 
homothetie, roUttCttl svmetne axiale et 
centrale, similitude) sur des ligures 
simples (carre triangle, losange ...). 



MC 09 CPC disk 



200 F 



£5PACES£TSOU0f5. 



Dessm géométrique dans l'espace 
utilitaire de dessin pour tracer points, 
droites, segments et plans accompagnés 
de commentaires éventuels avec 
possibilité de sauvegarde et 
d'impression La partie importante est la 
perspective choisie - La perspective «lil 
de fer» qui permet de refaire le trace sous 
des angles différents - La perspective 
avec les plans colorés qui donne une 
meilleure visualisation 

Une représentation de SOLIDES dans 
l espace avec Entrées du solide de votre 
choix - Impression de fichiers de données 
- Choix des angles de perspectives - Des 
exemples de solides I solides de 
PLATON, étoile de KEPLER > 



MC 10 CPC disk 



200 F 



BXAMS. 



Ce logiciel comprend une partie 
Questionnaire a choji multiples et une 
POT*)* Liste de vocabulaire 

Q.C.M. 

Permet de tester ses connaissances 

- 3 fichiers de culture générale 

- 1 fichier sur la Révolution française 
- 1 fichier sur la langue anglaise 
VOCALÏST 

Permet de tester ses connaissances sur les 
langues 

- 1 fichiers ANGLAIS-FRANÇAIS 
11 est possible de créer ses propres 
Q CM sur tous sujets ainsi que ses 
propres VOCALÏST sur les langues 



MC 14 CPC disk 



200 F 




série MC/ envoi ordinaire par poste :10f par f 



Les (&£iêi$t$ éducatifs sélectionnés du mùis 



ORTHOGRAPHE CE2 



Ni veau Œ2 

Ce logiciel comprend 

- 20 règles d'orthographe 

- 20 exercices d applications 

- 5 textes contrôles 

Il couwe I ensemble du programme 
d'orthographe de la closse du CE2 et 
perme» a I utilisateur d'apprendre une 
régie ou de faire le bilan de ses 
connaissances Le succès d une méthode 
qui a bit ses preuves la méthode 
O.P. T H 



Réf. DI001 CPC:Disk 
Réf. Dl 002 CPC : K7 



195 F 
195 F 



ORTHOGRAPHE CM 



Conçu selon le même principe que 
ORTHOGRAPHE CE2 ce logic.el 
s'adresse aux élèves de CM 



Réf. Dl 003 CPC : Disk 
Réf. Dl 004 CPC : K7 



195 F 
195 F 



Addsous Niveau primate el collège 
Apprentissage et consolidation des 
techniques de | addition e» de la 
soustraction Trois modules. trois niveaux 
de difficultés, un bilan pédagogique 
loorm ap.ès chaque usage des milliers 
délaces .ntéroct.fs 

Danton* I N/veou CM 2 e> collège 
Sous lof me de rail automobile, 
.■instruction el/ou consolidation de la 
technique opératoire de !o division grâce 
aux quatre modules progressifs 



Sur un même support pour Amstrad 



Réf. Dl 005 CPC : Disk 
Réf. 01 006 CPC : K7 



195 F 
195 F 



OBJECTIF CALCUL CP 

>' <-^-> -- _.. ....... ^. ........ 

Niveau CP 

Ensemble de logiciels vivant facile à 
utiliser pour apprendre a compter 
(COMPTE et KIM) ronger les nombres 
(ORDRE, AlGOl se repérer dons l'espace 
(CODE) Plusieurs niveaux de difficulté 



Réf. Dl 007 CPC : Disk 
Réf. Dl 008 CPC : K7 



195 F 
195 F 



Kïï 3éme/2nde 



UNE PREPARATION EFFICACE A 

L'ENTREE EN SECONDE 

Conçu par des enseignants des collèges 

et des lycées, ce KIT permet ou* futurs 

élèves de seconde de consolider leurs 

acquis de froisieme en français et en 

mathématiques 

Dans ces deux matières, l'élève choisit le 
point de programme qu il veut 
approfondir 

Une série d exercices lui est proposée 
Pour les effectuer dans les meilleures 
conditions, il pourra dès qu'il sera en 
difficulté appeler une aide. Le parti-pris 
pédagogique du KIT 3ème/2nde est de 
fovonser chez l'élève une attitude active 
dans sa démarche d'apprentissage 
Une note s'affiche en cours d'exercice 
pour permettre à l'élève de faire le point à 
lout moment II s'apercevra vite qu'une 
erreur est bien plus sanctionnée qu'un 
recours à l'aide, 

LES PLUS DU KIT 3ème/2nde 
LE TRAITEMENT DES REPONSES hes 
performant prend en compte un grand 
nombre de formulations différentes pour 
une même réponse 

UN GRAND NOMBRE DE DONNEES 
permet le renouvellement des exercices 
en français 3 sels de données par 
exercices et en mathématiques une 
infinité, (l'élève choisira entre les données 
proposées par les auteurs du KIT, les 
données tirées au hasard ou ses propres 
données). "-^^ 



Réf. Dl 009 CPC : Disk 



490 F 



KITCM2/6èm, 



Programme du CM2 orthographe, 
calcul, conjugaison, Pour un soutien tou) 
au long de l année scolaire ou des 
révsions pendant les vacances, KIT CM2/ 
6ème rassemble une série d'outils 
efficaces de prèparalion à I entrée en 
ôème 

Trois logiciels 

- Bilan des acquis 

- Bloc notes 

- Méthodologie 

et une séné de livres de la collection 
'apprendre", une cassette audio de 
d.cfèes et un roman de la collection 'les 
maîtres de l'aventure* 



Réf. Dl 01 0 CPC : Disk 
Réf. DIOll CPC:K7 



490 F 
490 F 




Permet : - D'apprendre à se servir de 
l'ordinateur pour communiquer avec le 
monde extérieur. - De donner un ordre à 
un élément extérieur faire tourner un 
moteur, allumer, éteindre une ampoule, 
émettre un bruit, efc - De tîailer une 
information venue du monde extérieur 
allumer une ampoule quond l'intensité 
lumineuse baisse, faire ralentir un train 
électrique si un autre entre en gare, etc. 
Toutes ces manipulations simples et bien 
d'autres sont réalisables à l'aide du 
matériel fourni Interface ♦ moteur, cellule 
photorésislonte, interrupteur à lampe 
souple, interrupteur de course, boulon 
poussoir, tournevis, fils et cosse 
Se programme dans n'importe quel 
langage BASIC, LSE. FORTH, LOGO. 
ASSEMBLEUR De nombreux exemples 
détaillés figurent dans la notice utilisateur 
Une bonne introduction à OMNIBUS 



Réf. Dl 012 CPC: Disk 



990 F 



DESTINATION MATHS 

(Génér ation 5} 

Afin de participer à la grande aventure 
spatiale du XXléme siècle, développe* vos 
optitudes mathématiques I 
L'ESSENTIEL DES CONNAISSANCES 
pour CE CM, 6ème/5ème 
TRES GRANDE FACILITE D'EMPLOI 
REALISATION EXCEPTIONNELLE décors 
futuristes, animations, musique,. 

Bst/cn 

Réf. G5 001 CPC : Disk |Qfl 

gââî/^sas 

Réf. G5 002 CPC : Disk BQQ 
Réf. G5 003 CPC : Disk ■LvJJ 

TROUBADOURS 

(Lankhor) 

loncez-vous sur lo trace des chevaliers du 
moyen-âge et vivez une grande aventure 
poétique et musicale (Pour filles e» 
garçons à partir de neuf ans) Une 
manière originale el plaisante d'aborder 
la lecture, l'expression écrite le 
vocabulaire, la musique CONSIDERE 
COMME UN DES MEILLEURS LOGICIELS 
EDUCATIFS PAR LA PRESSE 



Réf. G5 004 CPC : Disk | 



199F 



Mnciens numéros C$C et Pfors -Série 



Attention, n c 1 à 9, 1 2, 1 4, 1 S, 1 7, 21 , 22 er HS 1 , 2, 3 et 5 épuises 



Un récapitulatif des articles et des programmes publiés se trouve dans le n 19 pour les CPC n 1 à 17 

et dans le rt Q 30 pour les CPC n- 18 à 19 



CPC n rj 30 . Les caractères de contrôle - Astronomie plané- 
taire * Bronchez le Turbo - Anti-erreurs 2 - Traceur d'osçillo- 
grammes - Sauvegarde et impression d écrans sur Minitel - Jeu 
de dames - CAO 3D - Initia lion à CP/M. 

CPC rT 31 ■ Amstrad à l'école ■ La programmation du joystick 
- Branchez le Turbo - Création et animation de sprites - Tout sur 
les fichiers - Pluriels des noms - CAO 3D - Statistiques - Trans-fen 

CPC 32 : Représentations graphiques en X-Y - Missive - 
Traitement de l'image - Billard américain - Bronchez le Turbo - 
Création et animation de sprites 

CPC n c 33 : L'art de mémoriser les variables - Missive - Traite- 
ment de l'image - Billard américain - Introduction à CSX - 
Animation et gestion de sprites - Tout sur les fichiers - CAO sur 
CPC 

CPC n° 34 : Notions en mémoire - Traitement de l'image - Pré- 
sidentielles - CAO 3D - Introduction à G 5,X, Tout sur les fi- 
chiers - Animation et gestion de sprites - Oil Panic 

CPC n* 35 : Du 464 au 6 1 28 5" 1 /4 j'en veux - Traitement 
de i' image - CAO 30 - Rolling S ta nés - Mélange des couleurs - 
Conversion ASCII binaire - Moniteur de disquettes 

CPC n 36 Faites-vous bonne impression ? - Traitement de 
l'image - Banderole - CP/M + sur 464 - Médor - Accélérateur > 
Satellite - CAO 3D - Rènumérolation des programmes binaires 
■ Compilation B AS IC/Bi noire - Amsfettres 

CPC n° 37 : Catalogue détourné - Antalex - Téléchargement- 
Vidéo - Amslettres - Traitement de l'image DAMS et CP/M- 
Anti-erreurs- Zoomer - CAO 3D - T rameur Sprinter 

CPC n u 33 Dossier : tes fonzi nés - Perestroïka ; Traitement 
de l'image- Digison - CAO 3D, 



DISQUETTES 
• CPC 

l disquette contient les programmes de 2 numéros 
consécutif* dm CPC, 



n' J 1 CPC 1 et 2 
1i* 2 : CPC 3 et 4 
n* 3 ; CPC 5 et 6 
n* 4 . CPC 7 et 8 
n* 5 : CPC 9 et 10 
n*6 :CPC 1 1 et 12 
n° 7 : CPC 13 et 14 
n û 8 : CPC 15 et Î6 
n*9 CPC 17et 18 
n° 1 0 : CPC 1 0 et 20 



nM 1 CPC 21 et 22 
n : 12 CPC 23 et 24 

13 ; CPC 25 et 26 
n* M: CPC 27 et 28 

15; CPC 29 et 30 
n* 16 CPC 31 et 32 
n' 17: CPC 33 et 34 
nM 8 : CPC 35 et 36 
n* 19 : CPC 37 et 38 



les disquettes Hors Série contiennent les program- 
me* du numéro correspondant 

HS 4 Edit 2 - France rivière - Boisson assistée par ordinateur - 
Histoire de France - Gaston - Minic Mac - Opération Oméga. 

HS 6 : Flipper - Calcul Mental - Auto-choc « Jaquette - Dra- 
peaux & capitales Nuclear - Biorythmes, 

HS 7 An ti -erreurs - Dominos - Départ Oie - Tralt-Stat - Alca - 
Impression sur enveloppe * Auto dictée - Manoir Maudit. 

HS 8 : Antierreurs - Musiques - Mots croisés - Reliefs Mathé- 
matiques . Prêt - Resistor - Division - Le petit train * Magnetic - 
Pousse-Pousse , 

HS 9 Anti erreurs - Turbo Clavier - The Intfuder - Surface - Le 
cerveau - Blue-Cords - Coulmélo 

HS 1 0 ; Agenda - Tîtreur - Skyhawk - Packy - Volumes - Musi- 
ca. 

H S 1 ï : Ulcînor - Mots Codes - Puzzle - Cenripéde - Gestion 
Automobile - Chimie. 

HS 12 Amsbaggle - Energix - Latin - Mission - Problèmes « 
Registre, 

H S 1 3 : Àlpha-Strîp - Tables de multiplication - Ortho-Chlffres 
- Ams'orgue » Contact - Discover. 

H S 1 4 : Traceur de fonctions - Tri - Météo - Croque - Mission - 
Listing couleur - Satanio. 

HS 1 5 : Electron - Fleur - Danger - Horloge - Loby - Impression 
d'enveloppes - La roue. 

HS16 : Dark Dungeons - Skin'Egg - Tîtreur - Mines - Ortho - 
Loup - Grenouille - Monurevo - Opérations à trous, 

• ANCIENS NUMEROS CPC DISPONIBLES 

n" 10, 11, 13, 16, 18, 19, 20, 23, 24, 25, 26, 27, 28, 29, 
30, 3 L 32, 33, 34, 35, 36, 37 38 25 F la revue 

• HORS SERIE DISPONIBLES 

n* 4,6, B, 9, 10, 11, 12, 13 14, 15, 16 _1 5 F la revue 

• DISQUETTES 

n* 1, 2, 3, 4 5, 6,7, 6, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
18, 19, HS1, HS2, HS3, HS4, HS5 ; HSâ, HS7, HS8, HS9, 
HS10, HSM t HS12, HS 13,HSU, HS15, HS16 



Abonné 

Non-abonné 



Abonnement 6 disquettes 



.110 F la disquette 
.140 F la disquette 
600 F 



Pour foire votre commande, veuillez remplir le bon de commande page 93 
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AMSTAR 





CPC 



BON DE 
COMMANDE 



ANCIENS NUMEROS 



AMSTAR A CPC 26 : Bancs d'essois logiciels - Catalogue détourné - Listings en binaire -Tromeur - Traitement de l'image 
Solution , Crash Garrett - Ça ne marche pas - List - Vidéo - Amslettres - Reportage Cobra Soft, 

AMSTAR A CPC 77 l Mettez un peu d'animation - Vidéo - Amslettres - Solution : Conspiration - Le retour des fanîines - 
Editeur de ,aquertes - Bancs d'essois logiciels. 

AMSTAR A CPC 28 : Technique des masques - List - Traitement de l'image - Vidéo - Architecture et composition des RSX 
Pion : Jack the Nipper 2 - Bancs d'essais logiciels - Listing : Xénon 

AMSTAR A CPC 29 : Vidéo - Xénon - La revanche du retour des fanzines - Plan Sky Hunter - Dossier éducatifs - A la 
découverte du clavier - Frodal Landscope. 

AMSTAR A CPC 30 : Video - Téléchargement - Atomic SateJlit - CAO 3D - Solution : A320 - A la découverte du clav.er 
Trucages de codes BASIC - Analysons les fichiers - Bancs d'essais logiciels. 

AMSTAR & CPC 31 : Fanzines & cie -Compoct - CAO 3D - Atomic Satellit (suite) - Téléchargement - Solution . l'Ile - 
Etoiles - Réduction de code BASIC - Puissance 4 - Double Mode - Dossier - les indispensables de 
votre logithéque - Bancs d'essais logiciels 

AMSTAR A CPC 32 : Fonzines en folie - Listing , Créations muvcales - Etoiles (suite) - Traitement de l'image - Bancs d'es- 
sais logiciels - Solution : Secret Défense - Le coin des affaires - Compoct (suite) - Routine de In - 
Listing • Solitair - Trucs et astuces. 

AMSTAR A CPC 33 : Bancs d'essais logiciels - Le coin des affaires - Les fanzines - Horloge - Trucs et Astuces - Molécules - 
CAO sur CPC - Astuces : R-TYPE - Fruity - Tri - Récapitulatif CPC N° 30 6 38- Récapitulatif AMSTAR 
N° 19 6 25. 

AMSTAR A CPC 34 : Bancs d'essai logiciels - Reportage ; Génération 5 - Les Fanzines - Couleurs - CAO sur CPC - Listing 
Puissance 4 - Listing Bilry II - Compacteur - Caractères - Anti^erreurs - Disquettes système - Trucs 
et astuces - Récapitulatif Astuces et Plans Amstar 



DISQUETTES 



fi Abonné 

'M 



110 F la disquette 



1 disquette contient les programmes de deux numéros consécutifs d'AMSÎAR & CPC 

N° 20 AMSTAR & CPC 26 et 27- N° 2 1 . AMSTAR & CPC 28 et 29 - N° 22 . AMSTAR & CPC 30 et 3 1 - N° 23 : AMSTAR 
& CPC 32 et 33 - N° 24 : AMSTAR & CPC 34 et 35. 



Pour faire votre commande, veuillez remplir 
le bon de commande P. 98 
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A «xptdi.r à : SORACOM Editions - La Hai. d* Pan 35 1 70 BRUZ 



Désignation 


Prix unitaire 


Qté 




Montant 


Pour <haque article, entourez le ou les n choisis. 

ANCIENS N* # AMSTAR & CPC 

N c 26 -27- 28-29 - 30- 31 -32 -33- 34 

DISQUETTES AMSTAR & CPC Abonni 

N D 20 - 21 - 22 - 23 - 24 ;une d* Q uerte r*unrt 2 numéros conaécuife tf Amstar & CPC, Non-abonné 

ANCIENS N- AMSTAR 

N°5-6-8-9-10-11 
12-13-14-15 
16-17-18-19-20-21 
22 - 23 - 24 - 25 

DISQUETTES AMSTAR 

N° 1 (du n" i au 8 moto) - N c 2 (n° 9 au 16 indus) 
N°3(n*i7au 25 inclus) 

ANCIENS N- CPC 

N c 10 -11 -13-16- 1B- 19-20 -23-24 -2S- 26 -27-28- 29-X) 
31 - 32 - 33 - 34 - 35 - 36 - 37 - 38 

ANCIENS N- HORS SERIE CPC 

N°4-6-8-9-10-11-12-t3-14-15-16 

DISQUETTES CPC ET DISQUETTES HORS SERIE CPC 

U° 1-2-3-4-5-6-7-8-9-10-11-12-13-14-15 Abonné 
16-17-18-19 (Une disquette CPC réunit 2 numéros consécutifs de CPC) Non-abonné 
HS1 - HS2 - HS3 - HS4 - HS5 - HS6 - HS7 - HS8 
HS9 - HS10 - HS1 \ - HS1 2 - KS13 - HS14 - HS15 - MS16 

ABONNEMENT 6 DISQUETTES 

DISQUETTE "ARCADES" 4 cabU (NouvolU Edition) 

(Kit Téléchargement AMSTRAD CPC) 


25 F funtte) 

110 F (unité) 
\40f (unité) 

15 F (un\\eï 
1 8 F (unité) 
20 F (unité) 
22 F (unité) 

1 10 F (unité) 
25 F (umlé) 

15 F (unité) 

110 F (unité) 
1 40 F (unité) 

600 F 
112F 




Fran 

Fr 
Fr 

j 

jnco 
ronco 

Franco 
Franco 

Franco 

Franco 
Franco 

Franco 
Franco 
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Logiciels éducatifs - Livres - Divers 






Désignation 


Référence 


































































Forfait port ♦ 10 F par logiciel et 10 % pour livres 














Pour tout envoi par avion : 
pour DOM-TOM et étranger 
supplément 10 % de forfait par article 


J Facultatif recommandé + 10 F par commande 
MONTANT GLOBAL 


10 F 



Je joins mon règlement chèque bancaire _l chèque postal □ mandat □ Date et signature 



Nom Prénom 

N° Bi* 

Code postal Ville 




Comm$nd$ La commande doit composer tous les renseignements demandés su/ te bon de commande (désignation ou rélèrenca si ceJte-ci existe 1 T ome absence oe prêchions esi sous la responsain- 
lné de f acheteur \g vente est conclue oés acceptalon du bon de commande par notre société sur tes articles dsponfcles uniquement 

l#a priï .es prm indiqués sont valantes du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue sauf erreur dans te itelte de nos îante au moment de la 
tabncanon a j catalogue et oe vanai.on de pnx importante des fournisseurs 

Uvnisùn ,a .««•«>* -nte^ent ap-és le règlement Les *ub * Maison étant de «0 à 15 purs environ, SORACOM ne pourra ôtm tenue pour responsable des retards dus au/ (Mpjlftfj ou aux 
gré** rjK services postaux 

Tnrnperi La merchandse voyage au* nwues et perns ou destmta ^ li irvraison se 'arsaro par colis postai ou par transporteur les pw <ndqués sur le bon de romTanOe so^t valantes sur toute <t 
France mérropoHta.ne « 20 c car article pour GUhrtM par art* e« a^-rjessjs de 5 kg nous no js reservons la cossenaé d'aster ie on* de >ranspon en 'onction du coûi réel de ce u:-ci Pojr bénéficier de 
recours possible n 0 .js irions "otre a-mabte clientèle â opter pour renvoi en recommandé A rtcepiion ce, paouets louie aeiénoration don être s,gnaiée 


98 AM5TAR & CPC 35 


'Pn\ vaiatAtLS iuslJu au M judUl 1939 | 




VOUS AVEZ DIT 
ASTUCES? 



Puisque vous avez la chance d'être en vacances, nous avons pensé que vous auriez maintenant 
tout le loisir de taper de petits listings qui vous offriront des vies infinies, des munitions 
illimitées ou autres avantages pour tous vos jeux préférés ! Mais avant de vous lancer dans cette 
entreprise, nous vous conseillons de faire les deux choses suivantes : d'une part vérifiez que 
le listing est adapté pour un logiciel sur cassette ou sur disquette en consultant le tableau 
ci-dessous et, d'autre part, lisez le mode d'utilisation pour chaque listing. 
Tout d'abord, vous commencez par saisir le listing et vous le sauvegardez sous le nom 
que vous voulez. Ensuite, vous éteignez et rallumez votre ordinateur puis vous chargez 
votre programme de bidouilles par un ordre LOAD. Vous mettez en place le programme 
original et vous lancez la mise en route avec RUN. Vous n'aurez plus alors qu'à laisser 
faire ou à répondre aux questions s'affichant à l'écran. 

BONNES VACANCES - BON COURAGE. . . ET N'OUBLIEZ PAS QU'AMSTAR & CPC 
SORT EGALEMENT UN NUMERO EN AOUT ! 





10 'BARBASIAN II 

20 MEMORY !<8FFF:M0DE 1 

30 FOB N=&AOOO TO &A0AE:READ A»:A=VALCti*tA*) 
40 SOH=S0HtA:P0KE M,A:NEXT 

50 IF S0MO1SSÛ7 THEN PBtNT «Erreurs dans les datas.. . ':END 
60 1MPUT «Vies infinies (0/N) ";A*:1F UPPEB«(A»)= B N" THEN PO 
KE icA004,l>3D 

70 INPUT "Energie infinie (0/N) ";A*:1F UPPER*(A»="N" THEN 
PÛKE ScAOAC, 1 

BO INPUT "Tuer les lonstres avec la touche CLK ";A*:IF UPPER 
$(A»)="N" THEN PÛKE 4A0AE.1 

90 INPUT "Changement de niveau avec la touche ESC ";A*:1F UP 
PEB*(A»)="N" THEN POKE IcAOAD.l 

100 PR 1 NT : PR 1 NT "Mettre la disquette originale et appuyez su 
r une touche... ":CALL <tfiB06:CLS 
110 CALL &A000:ùCPH 

120 DATA CD,7A,A0,3E,00,32,AF,96,3A,AC,A0,A7,20,13,32,12 
130 DATA 91.32,8C,91.32.4E.95,3E,27,32,C8.91,32.DA.91.1B 
140 DATA U,3E,91, 32,12,91, 32,8C,9i,3E,3D,32,4£,95,AF,32 
150 DATA Ca,91,32,DA,91,21,02,92,3A,AD,AO,A7,20,07,36,lC 
160 DATA 23,36,53, 18,05,36,53,23,36,51, 21,2C,94,3A,AE,A0 
170 DATA A7, 20, 10,36, AF, 23, 36, 32, 23,36, 38, 23, 36,51, 23,36 
180 DATA C9, 18, OE, 36, CD, 23, 36, £4, 23. 36, 56, 23, 36, 3E. 23, 36 
190 DATA 10,3E,4E,32,A9.AO,CD,7A,AO,C9,16,17,OE,48,21,00 
200 DATA 90, CD, A3, AO. 16. 19, OE, 41, 21, 00.92, CD, A3, AO. 16, 19 
210 DATA OE, 43, 21, 00, 94, CD, A3, AO, 16, 16, OE, 42, 21, 00, 96, CD 
220 DATA A3,AO,C9,1E,00,DF,A9,AO,C9,66,C6,07,00,00,00,00 



BlONIC COMMANDO 



5 'BlONIC COMMANDO 
10 MODE 1:L=140 

20 FOR X=fcBF0O TO MF4B STEP 12 

30 L : L+10:R£AD LIN»,CHK*îCHK=0 

40 FOR Y=i TO 24 STEP 2 

50 A=«AL(»i"+HID»(LIN*,ï,2)) 

60 CHK=CHK+A 

70 POKE I+Ï/2.A 

80 NEIT 

90 IF CHK<>VAL("i"+CHK$) THEN PRINT "Err 
eur en ligne: *;L:END 
100 NEXT 

110 MODE 1: INPUT "Vies Infinies (0/N) ", 
AS: iF UPPERKAÎ.)^» THFJ POKE 0,0 
120 INPUT "Teips infini et iwunite (0/N 
)",A»:1F UPPER»(A*)="0" THEN POKE 1,0 
130 CALL &BD37:L0CATE 1,24:PRINT "Mettre 
la cassette originale..." 
140 MEMORY tB7FF:L0AD" ! * : MODE 1:CALL fcfiF 
00 

150 DATA 2100881 100A00UB00EDB03E, 351 
160 DATA C9321BAOCDOOA03EC32121BF.525 
170 DATA 329088229188C31B883A0000,425 
180 DATA B720093EC8323A0FAF327A0E,3CA 
190 DATA 3A0100B72007AF32AB0E32CC,3Bi 
200 DATA 0E3ED2329002AF3291023292,41A 
210 DATA 02C3â3û20ûOOOOOOOOOOOOûû, ISA 





10 ■ BATHAN 

20 «ODE 1:PRINT "Patientez.. .Charge 
■ent des datas !":PRINT:LIGN=70:DIR 
=&BOO0:GOSUB 50 : L I GN=670 : D I R=fcBEAO : 
GQSUB 50 

30 CLS:PRINT "Mettre la cassette or 
iginale. . . " :PR1NT "Avec la partie q 
ue vous desirez charger...*: FOR N=l 
TO 1000:NEÏT:CLS 

40 MEMORY i3FFF:CALL «tflD37:L0AD"!", 
&400O:H0DE 1:INK 0, 26: IKK 1,2: 1HK 2 
,0:INK 3,16:F0R H*l TO 200:NFJT:CAL 
L tBEAÛ 

50 BEAD A*: IF A»="«' THEN BETUBN 
60 READ TOT:SOH=0:FÛR H=l TO 20 STE 
P 2:A=VAL("k"+HID$(A$,N,2)):P0KE Di 
R,A:S0H=S0r1+A:DIR=DlRH:NEXT:lF SOM 
=TOT THEN LIGN=LIGNUO:GOTO 50 ELSE 
PR1NT "Erreur a la ligne "L1GN:END 
70 DATA C7D108FE01067F3E10ED, 1119 
80 DATA 793E54ED79D9E1D9D81B,1524 
90 DATA DF3D20FDA724C806F5ED, 1460 
100 DATA 78A9E6802BF5067F3E10.1143 
110 DATA ED79792F4FD97D3CE60F.1252 
120 DATA 6FF620D917ED7937C93D.1304 
130 DATA 20FDA724C806F5ED7BA9,1465 
140 DATA E68028F5067F3E10ED79.1212 
150 DATA 792F4F1F3E2A17ED7937.B18 
160 DATA C9O6F63E10ED79D9E52E,1381 
170 DATA 00D9216CA6E506F5ED78, 1361 
180 DATA E6804FCD7CA630FB2U5,1285 
190 DATA 0410FE2B7CBS20F93EOA.975 
200 DATA CD7CA630EA26C43E1CCD.1306 
210 DATA 7CA630E13EDABC38F226, 1367 
220 DATA C43E1CCD7CA630D33EDA.1320 
230 DATA BC38E4FD21ADA8FD6E00, 1462 
240 DATA 26C43E1CCD7CA630BE3E,1U9 
250 DATA D7BC30DD2C20EF26703E,U99 
260 DATA 1CCD7CA630AD3E1CCD7C,U63 



270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 



A630A67CFECD300EFE9C1435 
30CFFD23FD7DFEB120CB,1587 
18C53E0B26802E083E0B.587 
18023E09CDA2A6D03EOB,911 
CDA2A6D03E9FBCCB1S26.1412 
80D24FA73E1DBDC25BA6, 1315 
0OAF0826A12E01FD2100, 715 
A03E0418173E17ADC677,848 
DD7700DD231B26A12E01 , 869 
2E013E0118023E09CDA2,574 
A6D03E0BCDA2A6D03EC0, 1442 
BCCB1526A1D28FA708AD, 1312 
067AB32ÛCEC368A63E17, 1097 
ADC677DD7700DD231B2E,1159 
023E0426B3CD2CA8D0FD,U63 
7E04B7285A6901007F00,676 
00OOFD4EO0FD4601DD21 , 909 
0000DD094D3E012E0226, 456 
B3CD2CA8D03E7FBD2803, 1225 
32ACAB2E023E0826B3CD, 930 
2CA8D0FD5E02FD560369, 1216 
010500FD094D7BB226A1,845 
2E013E01C291A71168A6,903 
ED53ADA71194A7D5ED5B, 1533 



510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
710 DATA 
720 DATA 
730 DATA 



CFA8C3A6A63E06000018, 994 
B63E0DCDA2A63E10CDA2,1235 
A6D03EDBBCCB1526B3D2, 1494 
2AA8C9CDC2A621008006, 1143 
FFC51E004816FF06F5ED, 1322 
78E680A928501C792FE6, 1193 
804F15C24EA87323C110, 1027 
E22100001132800632C5, 707 
1A06004F0913C110F6E5,823 
2100001 1CD800632C51 A, 662 
06004F0913C110F6C17C,885 
B72013A7ED42013200A7 , 922 
ED42D80901CDFFA7ED42, 1459 
D03C32ACA8C90000C35D, 1147 
A8001E2A282200000000, 314 

F32100801167A6014A02,767 
EDB0DD21B1AB1 10501 CD, 1240 
40A83EC332A8AB21C4BE, 1295 
22A9A9C3DBA83A008021 ,1173 
B372FE452803218C70AF,1U9 
772100C0C377BF0O0O00, 849 





10 ' CRAZY CARS 

20 NODE kCALL fcBD37:0N ESSOR GOTO 70 
.30 1NPUT "Teips infini ?\A$ 
. 40 INPUT "STAGE <0-8)\S 
.50 INPUT "LEVEL (0-8)", L 

60 POK£ &BDEE, &C9: MODE 0:FOR R=0 TO 15:INK R,0:NEIT: BORDER 0 
70 LOAD "ÎUtCQOO -, Oft 1 ^, 
80 MEMORY IdFFF 

90 FOR R=0 TO 15:INK R,PEEK(65500+R):NEXT 
100 LOAD »!• C^AA h 
110 1F UPPER*(A»):"0" THEN POKE i51A5,0 
120 POKE &51A5.0 

130 POKE &41F2,0:P0KE M1F3,0:P0KE W1F4,0:POKE fc592A,S 
140 POKE &41F5,0:P0KE &41F6,0:POKE fc41F7,0:P0KE &5929.L 
150 CALL MOOO 



m GO 

!l»ilm!liliiilini|!i!'«'' 



D 



ARK FUSIO 



N 



10 'DARK FUSION 

20 MODE 1:F0R N=fc9200 TO fc920C:READ A»:POKE N 
,VAL("i"+A»):NEXT 

30 INPUT "Vies infinies ?";A»:1F UPPER*(A*)=" 
0" THEN POKE &9201.0 

40 INPUT "Energie infinie ?»;A$:IF UPPERt(A$) 
="0" THEN POKE 19206, &A7 
50 PRINT:PRINT "Mettre la cassette originale. 
..": FOR N=l TO 1000: NEXT ' 
60 MODE 0: MEMORY !<271B:CALL iBD37:L0AD"! loade 
r",i27l0:P0KE fc287D,0:P0KE fc287E,i92:CALL i27 
10 

70 DATA 3E,1,32,CB,7,3E,96.32,40.19,C3,84,3 





10 'BLASTEROIDS 
20 MEMORY ic9FFF : MODE 1 

30 FOR N=fcA000 TO t>A02E:READ A$:A=VAL("!."+A$) 
40 SOH=S0H+A:P0KE N,A:NEXT 

50 IF S0HO2543 THEN PRINT "Erreurs dans les datas. 
60 PRINT:PRINT "Mettre la disquette originale puis appuyez s 
ur une touche..." 
70 CALL iBB06:CLS:CALL tAOOO 

80 DATA 21, 1F,A0,11, 40,00,01, 30,00,ED,B0,1E,00,53,0E,41 
90 DATA 21, 00,01, DF,2C,A0,21, 40,00,22,05,01, C3,00,01,3E 
100 DATA 00,32,58,21, 00,00,00,00,00,C3,24,13,66,C6,07,00 




.EDSTOR 



M 



10 'LEO STOBH 

20 HEHOBY &AO00 : MODE 1:B0BDER 0:LM10 

30 FOR N=iA0A9 TO !<A39A:fiEAD A$:A=VAL("(t"*A$) :D=D+i 

40 IF D<17 THEN POKE N , A : SOM=SOM* A+255» ( S0H+ A>255 ) : GOTO 70 

50 IF S0«<> A THEN PRINT «Erreur a la ligne " ; L : END 

60 SOM=0:D=0:N=N-1:L=LMO 

70 KEXT: INPUT "Niveau de départ (1/9) ";A:POKE &A180.A-1 
80 OUT itFA7E,l: PRINT "Mettre la disquette originale puis app 
uyez sur une touche..." 
90 CALL &6B06 

100 INK 0,0:INK 1.6: (NK 2,24:INK 3,13:H0DE 1 : CALL 4A0A9 
110 DATA F3, DD. 21 . 3E. A3, DD, 66. 00, DD. 23, DD, 6E, 00. DD, 23, 22. 89 
120 DATA 2B,A3,5D,CD,02,A2,21,25,A3,35,CA,64,A1,DD,7E,00,EA 
130 DATA 32,50,A1,DD,23,DD,7E,00,32,3B,A1,DD,23,DD,7E,00,ED 
140 DATA 32,42,Ai,32,53,Al,DD,23,DD,23,DD,23,CD,8E,A2,22,6t 
150 DATA 1D, A3, ED,43,1B,A3,ES,21, 00,00,59,50, A7,06,09,CB,E3 
160 DATA 1A,CB,1B,CB,1C,CB,1D,10,F6,06,07,A7,CB,1C,CB,1D,5E 
170 DATA 10,F9,22,20,A3,43,E1,78,32,1F,A3,B7,28,07,C5,CD,FC 
180 DATA 99, Al , C 1 , 10, F9, ED. 5B, 20, A3, 7A, B3, 26, OD, ED, 53, 22, DA 
190 DATA A3.CD,99,A1.21.FF,FF.22.22.A3.2A,1D,A3.ED.5B,1B.05 
200 DATA A3,06,00,D5,E5,19,2B,7E,EE,22,4F,A8,41,77.2B,1B,30 
210 DATA 7A,B3,20,F3,E1,D1,06,00,7E,EE,22,4F,A8,41,77,23,SF 
220 DATA 1B,7A,B3,20,F3,CD,C2,A2,C3,BF,A0,21, 40,00,11, 00.27 
230 DATA 00,01, C0,3C,ED,B0,21,94,9D, 11, 00,00,01, 40,00,ED,30 
240 DATA B0,3E,C0,32,7B,5A,3E,00,32,F9,47,AF,32,E8,5A,32,C0 
250 DATA 3F,4C,32,40,4C,32,41,4C,01,7E,FA,ED,79,C3,20,4C,1C 
260 DATA 3A,2C,A3,C6.C1,4F,3A,2B,A3.47,CD,C5,A1,D2,D9,A0,B4 



270 DATA 3A,2C,, 
280 DATA 2B.A3, 
290 DATA 39, A3, 
300 DATA 09, CD, 
310 DATA E1,D1, 
320 DATA 3A,30, 
330 DATA A2,AF,< 
340 DATA A2.3A, 
350 DATA F8,C9, 
360 DATA F1,C9, 
370 DATA C8,7A, 
380 DATA 20, F3, 
390 DATA 77,23, 
400 DATA ED, 78. 
410 DATA 00,20, 
420 DATA 4E.00, 
430 DATA 66,00, 
440 DATA DD.7E, 
450 DATA 1D, A3, 
460 DATA 22, 14, 
470 DATA 22, 1B, 
480 DATA 00,28, 
490 DATA 7E,47, 
500 DATA 00,03, 
510 DATA 05,06, 
520 DATA B7.02, 
530 DATA 00,40, 
540 DATA 01,55, 
550 DATA FD.ll, 
560 DATA DE, 48, 
570 DATA 20, C8, 
580 DATA 01,01, 



3C,32,2C, 
32.2B.A3, 
3B,A3,78, 
A2,E1,ED, 
2E,A3,FE, 
B7,C0,37, 
77,A2,7B, 
A3,E6,20, 
7E,ED,79, 
ED,78,77, 
20,ED,0C, 
21,2E,A3, 
05,3D,20, 
30,FB,87, 
F1,C9,DD, 
23.DD.46, 
23,22,16, 
32, 19, A3, 
ED.5B.1B, 
E5,D1,C1, 
2A,14,A3, 
,12,13,23, 
7E,12,13, 
,00,00,00, 

00. 01.40, 
,14,FF,01, 

01, EC,7D, 
,49,60,86, 
32, 41, CE, 
,3t,CB,37, 
04,01,22, 
,00,00,00, 



A3,FE,0A, 
,5F, CD, 02, 
32, 37, A3, 
5B,22,A3, 
40,20,0E, 
,C9,A7,C9, 
CD,77,A2, 
,28,F1,C9, 
0D,23,ED, 
,0D,23,1B, 
ED,78,0D, 
ED,78,FE, 
FD,ED,76, 
30,00,F1, 
6E,00,DD, 
00,DD,23, 
A3,E1,DD, 
DD,23,C9, 
A3,D5,19, 
E1.3A.18, 
22,1D,A3, 
0B,78,B1, 
10,FC,C1, 
00,00,00, 
80,00,29, 
0E,CD,62, 
36,14,64, 
,10,30,92, 
01,00,02, 
,B4,01,CC, 
16,78,20, 
,00,00,00, 



C0,E5,AF, 
A2,E1,C9, 
01,7E,FB, 
CD.42.A2, 
3A,2F,A3, 
01,7E,FB, 
3E,08,CD, 
7E,CD,77, 
78,F2,31, 
ED,78,F2, 
ED,78,F2, 
C0,38,FA, 
E6,10,20, 
,0C,ED,79, 
23,DD,66, 
,E5,DD,6E, 
7E,00,32, 
,3A,19,A3, 
ED,5B,16, 
,A3,CD,F3, 
C9,F3,32, 
,20,F3,C9, 
,18,EA,00, 
, FF, FF, 00, 
,A0,B7,01, 
,E3,6F,03, 
,DA,09,66, 
,03,A2,03, 
,01, 01, CD, 
,77,58,D2, 
,OD,B0,9D, 
00,00,00, 



32.2C,A3,3A,E3 
D5,E5,79,32,F0 
21, 35, A3, 1E, 07 
E5,CD,5C,A2,Fl 
FE,80,20,07,EO 
3E,0F,CD.77,07 
77,A2,CD,5C,F5 
A2,23,1D,20,60 
A2,E6,20,20,39 
42,A2,E6,20,36 
52,A2,E6,20,D9 
0C,ED,78,0D,A9 
E9,C9,F5,F5,56 
0D,3E,05,3D,C4 
00,DD,23,DD,49 
00,DD,23,DD,85 
18, A3, DD, 23, 70 
B7,28,2A,2A,41 
A3,A7,ED,52,88 
A2,2A,16,A3,73 
F9,A2,7E,FE,AF 
0B,0B,C5,23,6B 
00, 00, 00, 00, 5E 
,08,02,03,04,14 
4C,0Û,29,00,C4 
,9C,ED,64,12,1C 
36,00,40,01,81 
,15,01,EF,33,F3 
9F,B7,97,C8,45 
,8F,EE,7C,A5,0F 
24, 00, 40, 00, AD 
,00,00,00,00,02 



■V. 




N 



AVYMOVEÎ 



10 'NAVY HOVES 

20 MODE 1:L=200:CALL &BD37 

30 FOfi X=JtBF00 TÛ &BF52 STEP 12 

40 L : L+iO:R£AD L I GN* , CHK* : CHX=0 

50 FOR M TO 24 STEP 2 

60 A=VAL("fc"+HlD*(LIGN»,Y,2)) 

70 CHK=CHK*A 

80 POKE i*m t k 

90 NEXT 

100 IF CHKCVALCfcnCHK*) THEN PEINT 

"Erreur a la ligne ";L:END:NEIT 

110 INPUT "Vies infinies ";A*:IF UPPE 

R*(A*)='0" THEN POKE fcBFll,0 

120 INPUT "Insensible aui aines «;A»: 

IF UPPER*(A$)="N" THEN POKE &£F16,&15 

:POKE kBF17,iBF 

130 INPUT "Chocs contre les hors-bord 
s (0/N) ";A*:IF UPPER»(A$)="N" THEN P 
OKE &BF21.&FF 

140 INPUT "Insensible aui requins (0/ 
N) ";A»:IF UPPER»(A$)="0" THEN POKE k 
BF2B.H8 

150 INPUT "Insensible aui plogeurs (0 
/N) ";A*:IF UPPER$(AI)="N" THEN POKE 
CtBF30,t(30:POKE &BF31,&BF 
160 INPUT "Un seul aissile pour tuer 



une lurene (0/N) ";A$:IF UPPEB*(A$)=* 

0" THEN POKE &BF3B, 1 

170 INPUT "Un seul aissile pour tuer 

une pieuvre (0/N) ";A$:IF UPPER$(A$)= 

"0" THEN POKE &BF40, 1 

180 INPUT "Bouée de départ (0-3) ";X: 

POKE &BF45, (I AND 1 )* 150+50 :P0KH &BF4 

6,INT(X/2) 

190 MEMORY &9FFF:H0DE 1:L0CATE 1.24.-P 
H 1 HT "Mettre la preiiere partie de Na 
vy Hoves ";:L0AD"!C",îtAOOO:POKE iA059 
,&C3:P0KE i<A05A,ftE:PÛKE iA05B,fcBF:M0D 
E 0:CALL tBFOO 
200 NEXT 

210 DATA 2100A011E80301F501EDBOC3,514 
220 DATA E803E5F53E3D32E479212B9E.5B9 
230 DATA 36002336002336003E00B728,205 



240 DATA 053EC332fiE9C3E3032698C21,448 
250 DATA OA8236002336002336003E1E, 1D0 
260 DATA 32617F3E123285952i000022,2Fl 
270 DATA 0A73F1E1DD2180A6C3450400,57F 

10 'NAVY HOVES 2e a e PARTIE 

20 MODE 1:L=180:CALL &BD37 

30 MEHORY 29999 :G0SUB 100 

40 INPUT "laaunite (0/N) »;A*:fF UPPE 

R*(A»)="N" THEN POKE &BFU,&10:P0KE k 

BF12,bBF 

50 INPUT "Vies Infinies ";A»:1F UPPER 
$(A*)="N" THEN POKE iBFlD,!ilO:P0KE ttfi 
"FlE.iBF 

60 INPUT "Balles infinies ";A*:IF UPP 
ER*(A»)="N" THEN POKE W3F20,Jtl0:P0KE 
&BF21.Î.BF 

70 INPUT "Lance f laaaes infini ■ ; A»: I 
F UPPER$(A$)-"N" THEN POKE fcBF28,JtlO: 
POKE tiBF29,iBF 

80 MODE hLOCATE i,24:PRINT "Mettre l 
a 2eae partie de Navy Hoves..."; 
90 LOAD "!C',&A 000:POKE iA059,!<C3:P0 
KE fcA05A,liE:P0KE &A05B,bBF:HODE 0:CAL 
L fcBFOO 

100 FOR X=l<BF00 TO &BF37 STEP 12 

110 L=L+10:READ LIGN*,CHK$:CKK=0 

120 FOR Y=l TO 24 STEP 2 

130 A=VAL("i"+HID*<LIGN*,Y,2)> 

140 CHK-CHK+A 

150 POKE X+Y72.A 

160 NEXT 

170 IF CHK<>VAL("i"+CHK») THEN PR1NT 
"Erreur a la ligne ";L:END 
180 NEXT:RETURN 

190 DATA 2100A011580201F501EDBOC3,483 
200 DATA 5802E5F521FB893600233600.468 
210 DATA 233600AF32E879210B823600,37F 
220 DATA 2336002167823600233600F1.2E3 
230 DATA E1DD2100A2C3B50200000000,3FB 



,05 



■ 




NetherworlD 



S N.A:S0H=50M*A:NEXT: IF S0MO3479 THEN PR1NT 'Erreurs dans les 
datas... VEND 

30 INPUT «Vies infinies ?";A*:1F UPPER$(A*)="0" THEN PÛKE 46 
1.0 

40 INPUT Muunite ?';A):IF UPPER*(A» = 

OKE *BB,0:PQKE tôO.U» 
| 50 INPUT "Teips infini ?";AI:IF UPPËR$(AU = "Û" THEN POKE bdS 
j ,0:POKE lc9A,b3E:P0KE Î.9F,9:P0KE kA4,kA7 

60 INPUT "Noibre quelconque de diamants ?»;A$:IF UPPER*lA*)= 
; *0* THEN POKE ltA9,iiAF 

70 PBINT:PB1NT "Mettre la cassette originale... *:FÛB tel TO 

lOOOiNEXT 

80 CALL kBD37:r1EH0RY &3FBF:M0DE 1:L0AD"!",MFC0:P0KE i415B,4 | 
80:P0KE fc415C,0:CALL &3FC0 
■ 90 DATA 3E,1,32,8F,27,3E,3D,32,CF,25,3E,3D,32,D8,26,3E,2A,32 I 
, BF, 27, 3E, 32, 32, 14, 16, 3E.65, 32, 16, 18, 3E, 7E. 32. 17, 18, 3E, 3D, 32 
, Cl, 64, 3E, B4.32, E3, 19, C3, 0,1 




R-typE 



l 10 ' R-TYPE 

■ 20 RESTORE: MEMORY &3FFF:M0DE 1:PRIN 
! T "Patientez. . .Chargement des datas 
\ !":L1GN=100:DIR=*4000:GOSUB 80:LIGN 
\ =70O:DlR=fcAO0O:G0SUB 80:CLS 

30 INPUT "Vies infinies ?";A»:IF UP 
j PER*(AI)="0" THEN POKE «020,0 

40 INPUT "Crédits infinis ?";A»:IF 
1 UPPER»(A*)="0" THEN POKE iA025,0 
; 50 INPUT "luunite totale ?";A$:IF 
l UPPER*(A*)="0" THEN POKE | t A02A,fcC9 
\ 60 PRINT:PRINT "Mettre la cassette 
\ originale.. .":FOR H=l TO 10ÛÛ:NEXT 
! 70 MODE 1:CALL fcBD37:L0AD"!", 46000: 

HODE 0: BORDER 0:FOR N=0 TO 15:READ 
S A: INK N,A:NFJT:FOR N=l TO 200:NEXT: 

CALL îtAOOO 

80 READ A*: IF A*="»« THEN RETURN 
l 90 READ T0T:S0M=O:F0R N=l TO 20 STE 

P 2:A=VAL("f +HID$<A»,N,2)):P0KE Dl 
- R,A:S0M=S0M+A:DIR^DIR+1:NEXT: 1F SOH 



=TOT THEN LIGN=LIGN+10:GOTO 80 ELSE 170 DATA 

PR1NT "Erreur a la ligne "L1GN:END 180 DATA 

100 DATA C7D108FE01067F3E10ED,1119 190 DATA 

110 DATA 793E54ED79D9E1D9D818,1524 200 DATA 

120 DATA E03D20FDA724C806F5ED.1461 210 DATA 

130 DATA 78A9E68028F5067F3E10,1143 220 DATA 

140 DATA ED79792F4FD97D3CE60F,1252 230 DATA 

150 DATA 6FF620D917ED7937C93D.1304 240 DATA 

160 DATA 20FDA724C806F5ED78A9.1465 250 DATA 



E68028F5067F3E10ED79, 1212 
792F4F1F3E2A173DED79.824 
37C906F63E10ED79D9ES, 1300 
2E00D9216AA5E506F5ED, 1284 
78E6804FCD7AA530FB21, 1381 
150410FE2B7CB520F93E.986 
0ACD7AA530EA26C43E1C, 1108 
CD7AA530E13EDABC38F2, 1531 
26C43E1CCD7AA530D33E, 1137 



106 
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10 'OPERATION WOLF 

20 MODE l:F0fi N=kA0OO T0 liA057:8EA0 Af:P0KE N, tfALl"&"*Ai) :NE 
IT 

30 INPUT "Energie infinie >";A*:IF UPP£R*IA$)=*Q" THFJ POKE 
&AÛ33,0:P0KE bA038,0 

40 INPUT "Grenades infinies ?";A$:IF UPPEM(A*)="0" THEN POK 
E &A03D.&A7 

50 INPUT "Cartouches infinies ?";A»:IF UPPER*(A$)="0" THEN P 
QKE fcA042,0 

I INPUT "Hunitions infinies ?";A»:1F UPPE8»(A$)=»0" THEN 
KE IA047.0 

70 INPUT "Continuer jusqu'à lourir ?";A*:IF UPPER*(A»>="0" T 
HEN POKE JtA04C,0 

80 PRINT:PRINT "Hettre la cassette originale.. .":F0R N=l TO 
10O0:NEIT 

90 CALL &BD37:H0D£ 1:HEH0RY i3FFF:L0AD "! ',48000 :CALL ItAOOO 
100 DATA F3,21,1B,80,11,Q,80,1,4E,1,7D,ED,4F,ED,5F,AE,EB,AE, 
EB,77,23,13,B,78,B1,20,F2,AF,ED,4F,21,2C,80,U,2C,88,1,3D,1, 
ED, BO, 21 , 32, AO, 22, 51 , 88, C3, 2C, 88 

110 DATA 3E,3C,32,A6,27,3E,34,32,8i,2C,3E,3D,32,36,25,3E,35, 
32,A0,2C,3E,35,32,D2,2C,3E,3A,32,7B,25,3E,28,32,13,6B,C3,E,6 




260 DATA DABC38E4FD21ACA7FD6E, 1678 
270 DATA 002fiC43ElCCD7AA530BE,1054 
280 DATA 3ED7BC30DD2C20EF2670.1199 
290 DATA 3E1CCD7AA530AD3E1CCD,1098 
300 DATA 7AA530A67CFECD300EFE.1400 
310 DATA 9C30CFFD23FD7DFFJ020,1539 
320 DATA CB18C53E0B26802E083E,779 
330 DATA OB18023E09CDAOA5D03E,908 
340 DATA 0BCDA0A5D03E9FBCCB15, 1382 
350 DATA 2680D24EA63E1DBDC25A,1184 
360 DATA A500AF0826A12E01FD2 1,880 
370 DATA 00AC3E0418173EB7ADC6,901 
380 DATA 6ADD7700DD231B26A12E.974 
390 DATA 012E013E0U8023E09CD,413 
400 DATA A0A5D03E0BCDA0A5D03E,1406 
410 DATA C0BCCB1526A1D28EA608,1329 
420 DATA AD087A8320CEC366A53E,1244 
430 DATA B7ADC66ADD7700DD231B,1283 
440 DATA 2E023E0426B3CD2BA7D0.954 
450 DATA FD7E04B7285A6901007F,929 
460 DATA 000000FD4E00FD4601DD,876 
470 DATA 210000DD094D3E012E02,451 
480 DATA 26B3CD2BA7D03E7FBD28.1258 
490 DATA 0332ABA72E023E0826B3,726 
500 DATA CD2BA7D0FD5E02FD5603.1314 
510 DATA 69010500FD094D7BB226,789 



520 DATA A12E013E01C290A61166.894 
530 DATA A5ED53ACA61193A6D5ED,1603 
540 DATA 5BCEA7C3A4A53E060000.1056 
550 DATA 18B63E0DCDA0A53E10CD,1094 
560 DATA A0A5D03EDBBCCB1526B3,1443 
570 DATA D229A7C9CX1A52100B0,1343 
580 DATA 06FFC51E004B16FF06F5,1091 
590 DATA ED78E680A928501C792F,1200 
600 DATA E6804F15C24DA77323C1.1239 
610 DATA 10E22100Û01132800632,526 
620 DATA C51A06004F0913C110F6,791 
630 DATA E521000011CD800632C5,865 
640 DATA 1A06004F0913CU0F6C1,787 
650 DATA 7CB72013A7ED42013200,879 
660 DATA A7ED42D80901CDFFA7ED.1560 
670 DATA 42D03C32ABA7C90000C3, 1118 
680 DATA 5CA7001E2A2822000000,405 
690 DATA i 

700 DATA F3210040U65A5014B02,701 
710 DATA EDBODD21B0A711AB0OCD,1403 
720 DATA 3FA7211FA02259ABC3DA.1158 
730 DATA A73E353210353E3D329E.732 
740 DATA 353ECD320435C3007A00,744 
750 DATA « 

760 DATA 0,26,13,24,15,3,6,16,1,2,1 
1,20,9,8,4,7 





10 *RUN THE GAUNTLET 
20 MEMORY &8FFF : MODE 1 

30 FOR N=i9000 TO &904F:READ At : A=VAL( "lt"*A$ ) 
40 SOM=SOH+A:POKE H, A:NFJT 
l 50 IF S0MO5281 THEN PEINT «Erreurs dans les datas...": END 
60 FOR N=l TO 16:BEAD A»:PRINT N;TAB(5) ;"-";At;NEXT 
70 FOR N=l TO 3:LÛCATE 2, 19:PBINT CHR*(20): "EPREUVE NUMERO"; 



80 INPUT A: IF A>16 OR A<1 THEN N=H-1:G0T0 70 

90 POKE 36939-N,A-l:NEXT:L0CATE 2,22 

100 PRINT "Mettre la disquette originale puis appuyez sur 

e touche..." 

110 CALL &BB06:CLS:CALL &9000 

120 DATA 21, 36,90,11, 00, 80.01, 00.01, ED.BO, 21,20,90,11,40 
■ 130 DATA 00,01, C0,00,ED,B0,21, 00,01, 1E,00,53,OE,41,DF,2A 
140 DATA 90,21,40,00,22,47,02,03,00,01,66,06,07,21,00,80 
150 DATA 22,36,5C,C3,00,0C,FE,01, 20,06,21, F4,06,22,C5, 00 
160 DATA 21, 48,90,3D,85,6F,7E,C9,02,01, 00,00,00,00,00,00 
170 DATA yHITEWATERCHASE,THECRATESRACE,ASSAULTCOURSE 
180 DATA AQUA-LAND, LIFTOFF, BARRAGE, FLASHDASH 
190 DATA OFFROADCHALLENGE, SPLASHDOUN, D-DAY 
| 200 DATA UATERENDURANCE, LANDENDURANCE, 4yHEELRALLY 
210 DATA POUEREXTREME, THETORNADO, STORHTHECASTLE 




MO 'ROAD BLASTERS 

^20 MODE 1:F0B N=iAOOO TO 4A079:READ A$:POKE N,VAL("li"+AJ) :HE 
l XT 

S30 IHPUT "Vie9 infinies ?";A*:IF UPPER»(A*)="0" THEN POKE &A 

05F,W7:P0KE iA064,4 
MO 1NPUT "Carburant infini ?";A*:IF UPPER*(A*)^"0" THEN POKE 
t<A060,0 

\50 INPUT "Arieient infini ?";A$:IF UPPER»(A$>"0" THEN POKE 
&A06E,0 

60 INPUT "Niveau de départ ?";At:IF LEN(A*)<>0 THEN A=VAL(A* 
! MilP A/3=INT(A/3) THEN POKE 4A073,A 
^70 PR [NT: PR 1 NT "Hettre la cassette originale. . .":FOR NM TO 

1000 :NEIT: MODE 1:HEM0RY 437C0:CALL &BD37 : LOAD" ! " , i37Cl : CALL 

438 7C: LOAD" I'.MOOOîCALL 4A000 
S 80 DATA F3,21,Q,40, 1,3,3, 3E, 8B,ED, 4F, ED. 5F, AE, 77, 0,23,8,78, B 

i,20,F5,IÎD,5F,C6,19,21,2£,40,l,D5,2,ED,4F,ED,5F,AE,77,0,23,B 

,78,B1,20,F5,21,0,40,11,0,B9,1,3,3,ED,B0 ( 3E,40,32,36,B9,3E,C 
[ 3,32,54,B9,21,4B,A0,22,55,B9,C3,2E,B9 
^90 DATA DD,2i,D9,BB,ll,B3,0,CD,67,BB,21,5E,A0,22,BA,BC,C3,3, 

BC.3E.3D.32.FC.9,3E,3.32,4C,A,3E.3D,32.BF.24.3E.3D,32,10.31. 
: 3E,0,32,1,2,C3,40,0 
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10 

20 MODE l:S0fl=O:F0R N=4BF0O TO 4BF3A:READ A$:A=VAL 
<"4MA*):P0KE N.A:S0r1=S0H+A:MEXT:!F S0HO5475 THEN 
PRINT Erreurs dans les datas.. ."îEND 
V30 INPUT "Vies infinies ?";A$:IF UPPER*<A*)="0" TH 

EN POKE &BF25. &B6 
' 40 INPUT "Energie infinie ?";A»:IF UPPER»lA*)="0" 

THEN POKE 4BF2A, 0 
| .50 INPUT "Teips infini ?";A»:IF UPPER*(A»)="0" THE 
I N POKE &BF2F, 6A7 

y \60 INPUT "Reserves de limitions ?";A$:IF UPPER»(A$ 

)="0" THEN POKE &BF34..&I1 
\70 PRINT:PRINT "Hettre la cassette originale. . .":F 

OR N=l TO 1000:NEXT 
A80 HODE 1:CALL 4BD37:HEH0RY &7FFF: LOAD" ! " , 48000 : CA 
LL 4BF00 

g 90 DATA F3.21.1B, 80,1. 4E.1, il, 0,80, 7D,ED,4F,ED.5F. 
g AE.EB.AE.EB, 77,23, 13,B,78,B1, 20. F2.21,24,BF.22,51, 
S 80, C3, 2C, 80, 3E, 35, 32, A5, 4, 3E, 3D, 32, 22, 3F, 3E, 90, 32, 
A5,4C,3E,1,32,12,B,C3.66,3F 



10 'RETURN OF THE JED1 

20 HODE 1:SOH=0:FOR N=48400 TO 48438:READ A>:A=VAL("fc"+A$) : P 
; OKE N,A:SOH=SOM+A:NEIT:IF S0HO5925 THEN PRINT "Erreurs dans 
les datas...": END 
30 PRINT "Hettre la cassette originale... ":FOR N=l TO 1000:N 
EXT 

40 HODE 1:CALL &BD37 : MEMORY 47FFF:L0AD"!\48000:CALL 48400 
■ 50 DATA F3,21,1B,80,U,0,80,1,F0,1,7D,ED,4F.ED,5F,AE,EB,AE,E 
B, 77, 23, 13, B, 78. Bl , 20, F2, 3E, C3, 32, FE, 80, 21, 29, 84. 22, FF, 80, C3 
,2C,B0, 21, 18,1, 22,63,8,22,55, 28. DD,21,0,90,C3,2,81 
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10 ' SAVAGE 

I 20 MODE 1 : INPUT 'Quel niveau voulez-vous char 
ger (1-3) ?»;AX:IF AÏ<1 OR A%>3 THEN 20 ELSE 
W=ltA12A:CLS:0N AS GOTO 30,80,120 
30 PRINT "PREMIER NIVEAU ":PRINT 
40 INPUT "Vies infinies ?";A*:RESTORE 220:GOS 
Ufi 200 

50 INPUT "Energie infinie ?";A$:REST0RE 230:G 
OSUB 200 

60 INPUT "Sans enneiis ? " : A* : RE5T0RE 240:G0SU 
B 200 

70 GOTO 170 

80 PRINT "SECOND NI VEAU": PRINT 
90 INPUT "Vies infinies ?";A*:RESTORE ZBOrGOS 1 
UB 200 

• 100 INPUT 'liiunite ?";A*:RESTORE 26Û:GQSUB 2 
00 

M 10 GOTO 170 

S 120 PRINT "TROISIEME NIVEAU ":PRINT 
130 INPUT "Vies infinies ?";A*:REST0RE 270:G0 
SUB 200 

140 INPUT "Energie infinie ?";A$:REST0RE 280: 
GOSUB 200 

* 150 INPUT "Sans ennemis ?";A»:REST0RE 290:G0S 
UB 200 

■ 160 INPUT "Noibre quelconque de pièces a detr 

uire ?";AI:RESTORE 300:G0SUB 200 
- 170 POKE D%,&C3:P0KE D»*1,0:.P0KE W+2,1 
180 PR1 NT : PS I NT "Mettre la cassette originale 
avec le niveau "A*:F0R M=l TO 2000:NEXT:MQD 
E 1:CALL &BD37:MEH0Rf &9FFF 
•190 A$="!LEVEL'+RIGHT*(STR*(A*),1H»!":LÛAD A 
»,fcAOOO:P0KE &A0E2,tt2A:P0KE fcAÛE3, 4A1 :CALL iA 
000 

200 IF UPPER$(A*)<>"0» THEN RETURN 
210 READ Ai: EF A*="i" THEN RETURN ELSE POKE D 
»,VAL("î<"*A*):D%:D*H:GOTO 210 
v - 220 DATA 3E,A7,32,2E,8,32,45,D,32,2B,DF,* 
230 DATA 3E,A7,32,18 1 8,32,57.4,32,1A,DF,* 
240 DATA 3E,1,32,AA,4,« 
250 DATA 3E,A7, 32,63,0.» 
260 DATA 3E,C3,32,3A,D',« 
270 DATA 3E,A7,32,2A,E7,» 
280 DATA 3E,A7,32,74,E7,t 
290 DATA 3E.C9.32.18.5B,» 
300 DATA 3E.C3,32,9E,8,» 




10 'SAMURAI MARRI OR 

20 MODE 1:CALL &BD37:L=110 

30 FOR X=iBFOO TO &BF92 STEP 12 

40 L=L+10:READ LIGN$,CHK*:CHK=0 

50 FOR Y=l TO 24 STEP 2 

60 BY=VAL("J<"+MID$(L1GN»,Y,2)) 

70 CHK-CHK+BT 

80 POKE X+Y/2,BY 

90 NEXT 

100 IF CHKOVAL("i"+CHK$) THEN PRINT " 
reur...":END 

110 NEXT:CALL iBFO0:L0CATE 1,24:PRINT " 
ettre le programme original... ":RUN "! 
120 DATA 3A7ABC3226BF2A7BBC2227BF.4F0 
130 DATA 3EC32U8BF327ABC227BBCC9.583 
140 DATA F53A46BFFEFF28093EFF3246,617 
150 DATA BFF1000000E53EC32147BF32,4EF 
160 DATA 7O3E22713E3A26BF2A27BF32.3E0 
170 DATA 7ABC227BBCE1F1C37ABCO032.68C 
180 DATA 46A114F53A92BF3CFE32201A.521 
190 DATA E52173BF3EC3323A01223B01.404 
200 DATA 3E322146A132703E22713EE1,40A 
210 DATA F1E93292BFF1E9E5F53EC321.833 
220 DATA 85BF327501227601F1E1C348.562 
230 DATA 01F53EB7320817F1010101C3.3F3 
240 DATA 78010000()0000000000000()0,079 




PDDS 




):H0DE 1 : BORDER 
0:LIGN=iiO 

30 FOR N=&9340 TO (>95E0:EEAD A 

*:A=VALCVtA$):OCT=OCT+l 

40 IF 0CT<17 THEN POKE N,A:SOH 

=SO«+A+255«(SOMtA>255):GOT0 70 

50 IF SOHOA THEH PEINT 'Erreu 

r a la ligne *;LIGN:END 

60 S0H=O:0CT=0:N=N-i:UGN=LIGN 

♦ 10 

70 NHT:F0R N=0 TO 1 5 : READ A»: 
A=VAL(»f +A*):INK N,A:NEIT 
80 DUT &FA7E.1: PEINT «Mettre I 
a disquette originale et appuy 
ez sur une touche... VCALL tiBB 
06 

90 OUT 4BCOO,l:0UT &BDO0,32:ÛU 
T &&C00,2:0UT &BDO0, 42 
100 INK 1,6:H0DE û:OUT tBC00,6 
:0UT &BD00,24:CALL i.9340 
110 DATA F3.DD.21.B1.95.DD.66. 
00, DD. 23, DD.6E, 00, DD, 25.22.EE 
120 DATA 9E,95,5D,CD,75,94,2i, 
98,95.5S,CA,FB,93,DD, 7E,00,A4 
130 DATA 32.E7.93, DD.23, DD.7E, 
00, 32, D2, 93, DD, 23, DD, 7E, 00, 01 
140 DATA 32,D9,93,32,EA,93,DD, 
23, DD, 23, DD, 23, CD, 01, 95,22,09 
150 DATA 90,95, ED,43,8E,95,E5, 
21, 00,00,59, 50, A7,06,09,CB,AE 
160 DATA 1A,CB,1B,CB,1C,CB,1D, 
10,F6,06,07,A7,CB,1C,CB,1D,5E 



170 DATA 10 
78,32,92,95 
180 DATA OC 
93,95, 7A.B3 
190 DATA 95 
22,95, 95, 2A 
200 DATA 95 
7E,EE, 22,4F 
210 DATA 7A 
00,7E,EE,22 
220 DATA 1B 
95, C3, 56, 93 
230 DATA 32. 
05.59.C3.36 
240 DATA Cl. 
38,94,D2,4C 
250 DATA 32, 
AF, 32, 9F, 95, 
260 DATA 9E, 
C9,D5,E5,79 
270 DATA 95, 
FB.21.A8.95 
280 DATA El, 

94, E5,CD,CF 
290 DATA 95, 

95, FE, 60, 20, 
300 DATA CO, 
FB,3E,0F,CD, 
310 DATA 94 
CD, EA, 94, CD, 
320 DATA E6, 
EA,94,23,1D 
330 DATA ED, 
A4, 94, E6, 20, 
340 DATA 78, 
F2,B5,94,E6 
350 DATA ED, 



F9, 22,93, 
( B7,28,07, 
94, Cl, 10, 
,28,003, 
CD, OC, 94, 
90,95.ED, 
06,00,05, 
A8.41.77, 
B3,20,F3, 
4F,A8,41 
7A,B3,20, 
3E,A7,32 
90,61,32, 
A3,3A,9F 
4F.3A.9E, 
93,3A,9F. 
9F,95,FE, 
3A,9E,95, 
95, 5F, CD, 
32,AC,95, 
78,32,AA, 
1E,09,CD, 
ED, 56,95, 
94, El.Di, 
FE, 40,20, 
07,3A,A3, 
37.C9.A7, 
EA,94,AF, 
7B,CD,EA, 
CF,94,3A, 
20,28,F1, 
20,F8,C9, 
79,00,23, 
20,F1,C9, 
77,0D,23, 



20, C 



0C,ED,78, 



95, 43, El, 
,C5,CD,C7 
,F9,ED,5B, 
',53,95,19 
21, FF, FF, 
,5B.8E,9A 
E5,19,2B, 
,2B,1B,22 
, El, 01, 06, 
,77,23.5F 
,F3,CD,35, 
,79,5C,91 
2F.6F.32, 
,95,C6,59 
95,47,CD, 
,95,3C,BF 
0A,C0,E5, 
,3C,32,0B 
75,94,E1, 
,32,AE,A1 
95,01,7E, 
95,94, 7A 
95,CD,B5, 
3A,A1,16 
0E,3A,A2, 
95,87,47 
C9,01,7E, 
CD, EA, Bi 
94,3E,08, 
Al, 95,94 
C9,7E,CD, 
0C,7E,64 
ED,78,F2, 
OC,ED,07 
1B,ED,78, 
B3,20,FC 
0D,ED,78, 



F2,C5,94, 
360 DATA 
FA,0C,ED, 
370 DATA 
20,E9,C9, 
380 DATA 
79,0D,3E, 
390 DATA 
66.00.DD, 
400 DATA 
6E,00,DD, 
410 DATA 
32,88,95, 
420 DATA 
95,B7,28, 
430 DATA 
89,95,A7, 
440 DATA 
66,95,2A, 
450 DATA 
32,6C,95, 
460 DATA 
C9,0B,0B, 
470 DATA 
00,00,00, 
480 DATA 
00,04,02, 
490 DATA 
01,4C,00, 
500 DATA 
12,4A,D5, 
510 DATA 
58,78,58, 
520 DATA 
03,15,01, 
530 DATA 
1A, 02,06, 



E6,20,20, 
A1,95,ED, 
78,00,77, 
3D,20,FD, 
F5,F5,ED, 
FB,87,30, 
05,30.00, 
C9.DD.6E. 
23,DD,4E. 
DD,46,00, 
23,DD,66, 
22,89,95, 
DD,23,DD, 
8C,95,DD, 
2A,2A,90, 
5B,BE,95, 
ED,52,22, 
Dl.Ci.El, 
89,95,22, 
87,95,22, 
7E,FE,00, 
13,23,08, 
C5,23,7E, 
12,13,10, 
00,00,00, 
00,00,00, 
03,04,05, 
01,40,80, 
30,00,7C, 
FF, 02, 09, 
B6,2A,00, 
5C.9E.42, 
78,25,00, 
5A,B3,43, 
00,00,00, 
00,00, 1A, 
13.16, OC, 



F3,C9,21,27 
78,FE,C0,38, 
23,3E,05,EO 
ED,78,E6,10, 
78,87,30,96 
00,F1,0C,ED, 
20,FC,F1,B5 
00,DD,23,DD, 
00,00,23,89 
DD,23,E5,DD, 
00,DD,23,9D 
E1,DD,7E,00, 
7E, 00,32, 62 
23,C9,3A,8C, 
95,E5,ED,77 
D5,19,ED,5B, 
87,95,E5,E3 
3A,8B,95,CD, 
8E,95,2A,54 
90,95,C9,F3, 
28,09,12,18 
78,B1,20,F3, 
47,23, 7E,AF 
FC,C1,18,EA, 
03,00, 00,F9 
00, 00, FF, FF, 
06,00,00,18 
00, 30, 50, 7C, 
02,7C,14,4B 
FE,52,E4,ED, 
40, 25, 01, A8 
54,B1 ( E8,03, 
17,B8,81,47 
A3,A2,03,B2, 
00,00,00,66 
08,12,14,18, 
0A,0D.18,0E 



The last ninja I 



10 'THE LAST NINJA 2 

20 MODE 1 : PB i NT "Patientez. . .Charge 

■ent des datas ! ":LIGN=70:Dl8=fcA0O0 

:GOSUB 50 : L 1 GN=280 : D I B=fcBF0O: GOSUB 

50 

30 CLS:PRINT "Mettre la cassette or 
iginale...":FOR N=l TO 1000:NEXT:CA 
LL tBD37 

40 MODE 1 : MEMORY i37C0:L0AD "!",î<37 



C1:CALL ît387C:L0AD "!",M000:CALL & 
BFOO 

50 READ Al: IF A»="«" THEN RETURN 
60 READ TOT:S0rl=O:F0R N=l TO 20 STE 
P 2:A=VAL("i"+HID$(A*,N,2)):P0KE Dl 
R,A:DIR=DIR+1:S0H=S0M+A:N£XT:IF SOM 
=TOT THEN L1GN=LIGN+10:G0T0 50 ELSE 
PR i NT "Erreur a la ligne "L1GN:END 
70 DATA F32100400103033E8BED,785 
80 DATA 4FED5FAE7700230B78B1.1047 
90 DATA 20F5EDSFC619212E4001.976 
100 DATA D502ED4FED5FAE77OO23.1191 
110 DATA 0B78B120F52100401100,699 
120 DATA B9010303EDB03E403236,835 
130 DATA B93EC33254B9214B0522,908 
140 DATA 55B9C32EB9DD21D9BB1 1,1371 



150 DATA C300CD67BB2100002274,873 
160 DATA BC216405229ABCC303BC,10B8 
170 DATA 216D0522A600C34000AF,781 
180 DATA 329C3C3EC3329CAB217F, 1060 
190 DATA 05229DABC340063E10CD,915 
200 DATA 37ACCD05BCD0F5C5D5E5.1717 
210 DATA 21B0053A0040BE280523,606 
220 DATA 232318F5AF235E235612.782 
230 DATA 3EC3329CAB217F05229D,990 
240 DATA ABE1D1C1F1C911B73A03,1501 
250 DATA AD3D220B3DC5EA3B3AE3,1115 
260 DATA 30000000000000000000,61 
270 DATA « 

280 DATA F32100AOU000501BF00.650 
290 DATA EDB0C300050000000000,613 
300 DATA * 




Total eclipsE 



XT 

30 INPUT "Tews bloque ?";A»:IF UPPER»(A*)="0" THEN POKE fcBF 
Dl.O 

40 INPUT "Reserve d'eau bloquée ?";A*:IF UPPERt(A$)="0" THEN 
POKE ld)F22,0 

50 INPUT "Battements du coeur bloque ?";A$:1F UPP£8»(A$)="0" 
THEN POKE tBF27,0:P0KE JcBF2C,0:P0KE JcBF31,0:P0KE &BF36, &3A 
60 INPUT "Posséder 5 croix ankhs en penanence ? n ;A«: IF UPPE 
R*(A*)="0" THEN POKE &BF3B,Si21:P0KE tBF40,i36:PDKE &6F45.0 
70 PR1NT:PRINT "Hettre la cassette originale... ":F0R N=l TO 
1000:NEÏT 

80 CALL IBD37: MEMORY !t3FFF:M0DE 1:L0AD "!", 14000 :CALL iBFOO 
90 DATA 21,0, 40, 11, AO, F, 1,95,0,ED, B0,3E.C3,32,6. 10,21, 19, BF, 
22, 7, 10, C3, AO, F, CD, CE, BC, 3E, 34, 32, 1 , 6A, 3E, 3D, 32, 59, 6A, 3E, 77, 
32,FE,62,3E,35,32,4C,6A,3E,35,32,AC,6B,3E,32,32,18,76,3E,3A, 
32, EE, 67, 3E, FE, 32, Fl , 67, 3E, 2, 32, F4, 67, C9 



!|tû*êll 




10 ' THUHDER BLADE 

20 HEHORY fc3FFF:N0DE 1:PRINT "Patientez. 
.. Chargeant des datas ! ":PRINT:LIGN=12 
0:DIR=fc9C40 

30 READ A$:1F A*="«" THEN 60 
40 IF A*="0'THEN FOR D I R=D1R TO DIR+9:P0 
KE D i R, 0 : NEIT : L 1 6N=L 1 GN+ 10 : GOTO 30 
50 READ TOTfS0r1=O:F0R M=l TO 20 STEP 2:A 
=VAL("J. , +MID*(A»,N,2)):S0M=S0M+A:P0KE DI 
R, A:DIR=DIRH:NEÏT: IF S0H=T0T THEN LIGN= 
L1GN+10:GQT0 30 ELSE PR [HT "Erreur a la 
ligne "UGN:END 

60 MODE 1:DIH A(8):F0H N=l TO 8: READ A(N 
):NEIT 

70 INPUT "Vies infinies ?";A*:IF UPPER*( 

A$)=-0" THEN POKE !t9E4F,0 

80 INPUT "Phase initiale ?";A*;1F LEN(A* 

)<>0 THEN V=VAL(A»):IF V>=0 AND v<=8 THE 

N POKE 49E57,0:P0KE &9E5C,0:POKE &9E61.A 

(V) 

90 INPUT "Insensible aux chocs ?" ;A$: IF 

UPPER(A*)="0" THEN POKE !c9E66,MB 

100 PR1NT:PRINT «Mettre la cassette orig 

inale. ..":F0R N=l TO 1000:NEIT 

110 CALL fcBD37:H0DE 1:L0AD "!",&AOOO:B0R 

DER 11:1NK 0,11: INK 1,24: INK 2,2: INK 3,0 

:FOR N=l TO 200:NEXT:CALL &9CFC 

120 DATA F780FF00000A00499C1C,B97 

130 DATA FF1CFF1600005B00002A,695 

140 DATA 9ED07000000040000000.542 

150 DATA 0 

160 DATA 0 

170 DATA 0 

180 DATA 0 

190 DATA 0 

200 DATA 0 



210 DATA 
220 DATA 
230-DATA 
240 DATA 
2S0 DATA 
26ÏÏ DATA 
-270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
710 DATA 
720 DATA 



000O00OOO00O0O0OF3DD, 464 
21B39A2100C006C8DD75, 1 135 
00DD23DD740ODD237CC6, 1171 
086730041 150C01910EA, 727 
31B39A3E1006F6ED7926, 1108 
32069C3E16CDF99D30F5, 1200 
3EC6B830F02520EF06C9, 1247 
CDFD9D3ÛE678FED430F4.1771 
CDFD9D30DC00DD21599C, 1382 
110200ED5F06122E0178,542 
06D7CDF99DD2969E3EE7, 1643 
B8CB153E0O003E15D258.B51 
9D3A589C85325B9C653A, 1045 
F29FAAABDDACDDADADDD, 1923 
77000609CB63280D3AF2,789 
9FC65B839232F29F0505, 1186 
053AF29FC61732F29FDD, 1357 
231B7AB3C2559DC3BA9D.1337 
UE79DED53A69D810601,1184 
D17AB3C8DDE1189B2A59.1466 
9CU4007ED52C2969E21,1098 
D59D22A69DDDE1115000,1270 
0601C3559DD17AB3CAA8, 1324 
9DD5DDE1 131 150000603, 941 
C3559DD1 7AB3C8DDE121 , 1626 
34ÔF22049E230603C355, 731 
9DCD0D9ED0C3009E7BE6, 1447 
07CA069E3E00C30B9E3E, 861 
133D20FDA704C83EF5DB, 1262 
FF.1FC8A9E64028F379;2F,1400 
4F3E00OOO0C3289E37C9; 790 
7C21579C8623BEC2969E, 1261 
217B9C117C9C01C20136,859 
0OEDB0AFO6F6ED79O18D, 1340 
7FD9E131F8BF3E0132A3, 1333 
1132E2113E323275,033E,654 
3E3276033E00323E023E, 471 
2032CD0932DF09CD09B9.977 
CD03B9C3400000000000, 652 



00000000000000000100,1 
F6ED4901897FED49C300, 1326 



730 DATA 0 

740 DATA 0 
"750 DATA 0 

760 DATA 0 
•770 DATA 0 

780 DATA 0 
790 DATA 0 

800 DATA 0 

810 DATA 0 
-820 DATA 0 

830 DATA 0 

840 DATA 00O0O0OO00000O0O00D9,217 
850 DATA 05C2689F1313OO007BFE, 877 
860 DATA 1A201821979F22FE9D23.905 
870 DATA D93E0FC30D9ED921 199F, 1094 
880 DATA 22FE9D1E141802ED5F16.875 
890 DATA 07297BD614A71F4F0600.688 
900 DATA 21EF9F097E01F39F876F,1215 ~ 
910 DATA 2600091F4F3E50914F06,529 
920 DATA 057A16C0D9C3OD9E7832, 1094 
930 DATA 8A9F06027E1213237E12,647 
940 DATA 1B7AC60857230D200721,562 
950 DATA F39F10EC1805C810E718,1154 
960 DATA 0006003E03CB653E033E,502 
970 DATA 03D9C30D9ED921EF9F06,1240 
9B0 DATA 027EE60728033518051E,520 
990 DATA 2016403D2310F006031C.507 
1000 DATA 3E0835F2CA9F3E05364F.926 
1010 DATA 1C2B35F2CA9F3E02364F,924 
1020 DATA 2B3526002EE021009E22,629 
1030 DATA FE9DD9C30D9E00OO00O0,994 
1040 DATA 0 
1050 DATA 0 

1060 DATA OOOOÛ03Û101FD400000Û.307 
1070 DATA » 

1080 DATA 0.2,3,5,6,8,9,11 





I YPHOO 



N 



10 'TYPHOON 

20 MEMORY &9000:HODE 1 

30 FOR N=bA520 TO t>A68C:KEAD AS :A-VAL("k"+A»> 
40 SOM=SOM*A:POKE N,A:HEIT 

50 IF S0HO41062 THEN PEINT 'Erreurs dans les datas...": END 
60 PRINT "Mettre la disquette originale puis appuyez sur uni 
touche..." 

70 CALL &BB06:HOOE 2:INK 0,0: J NK 1,0:CALL îtBD19:CALL tcA520 
80 DATA F3,01,7E,FA,3E,01,ED,79,21,60,1E,CD,40,A5,3E,02 
90 DATA 21,00,C0,CD,4O,A5,AF,32,76,F0,32,28,Ft,C3,6O,lE 
100 DATA DD,21,85,A6,4F,DD,7E,00,B9,28,0A,DD,23,DD,23,DD 
110 DATA 23,DD,23.18,F0,DD,S6,01,DD,5E,02,DD,46,03,3E,06 « 
120 DATA 93,B8,38,07,7B,80,3D,4F,C3,88,A5,0E,Û5,C5,F5,E5 
130 DATA D5,CD,88,A5,D1,E1,FI,C1,5F,78,93,47,CB,23,CB,23 » 
140 DATA 7C,83,67,1E,01,14,18,D6,7A,32,6C,A6,32,75,A6,22 
150 DATA C9,A5,7B,32,77,A6,79,32,79,A6,18,U,7A,32,6C,A6 
160 DATA 32,75,A6,22,C9,A5,79,32,77,A6,32,79,A6,U,6F,A6 
170 DATA CD,E5,A5,3A,7D,A6,B7,20,F4,11,69,A6,CD,CF,A5,U 
180 DATA 6F,A6,CD,E5,A5,11,72,A6,21,85,A6,CD,ED,A5,C9,CD 
190 DATA E0,A5,11,6D,A6,CD,E5,A5,21,7D,A6,CB,6E,28,F3,C9 
200 DATA 01, 38,A6,18,0B,01,1A,A6,21,7D,A6, 18,03,01, 0F,A6 
210 DATA ED,43,07,A6,1A,47,13,CS,1A,13,CD,3E,A6,C1,10,F7 
220 DATA 01,7E,FB,11,10,20,C3,OF,A6,OC,ED,78,77,OD,23,ED 
230 DATA 7B,F2,0F,A6,A2,20,F2,21,7D,A6,ED,78,FE,C0,38,FA, 
l 240 DATA 0C,ED,78,77,0D,23,3E,05,3D,2O,FD,ED,78,A3,20,EA 
250 DATA 3A,7E,A6,E6,04,C0,37,C9,ED,78,F2,38,A6,C9,01,7E 
260 DATA FB,F5,ED, 78,87, 30,FB,87,30,02,Ft,C9,Fl,OC,ED,79 
270 DATA OD,3E,05,3D,00,20,FC,C9,C5,06,F5,ED,78,1F,38,FB 
280 DATA ED,78,1F,30,FB, Cl, 10,FO,C9,03,OF,00,00,01, 08,02 
290 DATA 4A,00,09,4C,00,00,00,49,03,49,2A,FF,00,00,07,00 
300 DATA 00,00,00,90, AB.Ol, 05,01, 09,02,06,05, 10,00,00,00 



D:NODE 1 S^sX 1 

30 FOR N=&A4F3 TO i<A675:READ A«:A=VAL('i'+A$) NN\ 
40 SOH=SÛH+A: POKE N,A:NEXT 

50 IF S0MO41638 THEN PRINT 'Erreurs dans les datas...': 
END 

60 PRINT 'Mettre la disquette originale et appuyez sur u 
ne touche..." 

70 OUT ltFA7E,l:CALL ltBB06:CLS:CALL &A4F3 
80 DATA F3,3E,02,21,40,02,CD,03,A5,AF,32,45,13,C3, 72,80 
90 DATA 4F,DD,21,6B,A6,DD,7E,00,B9,28,0A,DD,23,DD,23,DD 
100 DATA 23,DD,23,18,F0,DD t 56,01,DD,5E,02,DD,46,03,3E,19 
M10 DATA 93,B8,38,07,7B,80,3D,4F,C3,47,A5,OE,18,C5,F5,E5 
\ 120 DATA D5,CD,47,A5,D1,E1,F1,C1,5F,78,93,47,7C,83,67,1E 
130 DATA 01,14,18,DA,3E I 4C,32,49,A6,3E,06,32,4E,A6, 79,10 
.140 DATA 93,32,F6,A5,7B,32,E1,A5,1E,01,4B,C3,68,A5,59,AF 
150 DATA 32,F6,A5,32,E1,A5,7A,32,42,A6,32,4B,A6,22,97,A5 
160 DATA 7B,32,4D,A6,79,32,4F,A6,11,45,A6,CD,B1,A5,3A,62 
\ 170 DATA A6,B7,20,F4,11,3F,A6,CD,9B,A5,11,45,A6,CD,B1,A5 
180 DATA U,48,A6,21,6B,A6,18,1E,CD,AC,A5,11,43,A6,CD,B1 
190 DATA A5,21,62,A6,CB,6E,28,F3,CS,01,39,A6,18,0B,01,21 
v200 DATA A6,21,62,A6,18,03,01,EA,A5,ED,43,E3,A5,1A,47,C5 
,210 DATA 13,1A,01,7E,FB,F5,ED,78,87,30,FB,FA,C9,A5,F1,0C 
,220 DATA ED,79,06,08,10,FE,C1,10,E6,01,7E,FB,11,00,00,C3 
,\230 DATA EA,A5,0C,ED,78,0D,1B,ED,78,F2,EA,A5,7A,B3,C2,E5 
\240 DATA A5,11,00,00,0C,ED,78, 77,00,23, 1B,7A,B3,CA,14,A6 
.250 DATA ED,78,F2,03,A6,E6,20,C2,F7,A5,C3,1E,A6,OC,ED,78 
\260 DATA 0D,ED,78,F2,14,A6,E6,20,C2,10,A6,21,62,A6,ED,78 
\270 DATA FE,C0,38,FA,0C,ED,78,77,0D,23,3E,05,3D,20.FD,ED 
\280 DATA 78,E6,10,20,E9,C9,ED,78,F2,39,A6,C9,03,OF,00,00 
\290 DATA 01,08,02,4A,00,09,4C,00,00,00,49,02,49,2A,FF,00 
300 DATA 01,02,0D,OB,0A, 14,03, 1A,09, 12, 15, 10, 18,06,85,40 
310 DATA 80,00,00,00,49,02,00,00,01,05,01,40,02,07,11,96 
S 320 DATA E5,0E,04, 00,00,00, 00,00,00, 00,00, 00, 00,00, 00,00 




OOr 




